missed initialization caught by tests

Author: philchalmers

R/PBA.R

@@ -168,7 +168,7 @@ PBA <- function(f.root, interval, ..., p = .6,
             rel.tol <- 0
         }
         interpolate.burnin <- FromSimSolve$interpolate.burnin
-        glmpred.last <- glmpred <- c(NA, NA)
+        glmpred.last <- glmpred <- glmpred0 <- c(NA, NA)
         k.success <- FromSimSolve$k.success
         k.successes <- 0L
     } else{

tests/tests/test-01-core.R

@@ -103,9 +103,9 @@ test_that('SimDesign', {
     set.seed(1234)
     res <- SimSolve(condition, b=.80, interval=c(.1, 3), integer=FALSE,
                     generate=mysim_md, analyse=mycompute, summarise=mycollect,
-                    maxiter=30, verbose=FALSE)
+                    maxiter=40, verbose=FALSE)
     expect_is(res, 'SimSolve')
-    expect_equal(res$mean_diff, 1.321, tol=1e-3)
+    expect_equal(res$mean_diff, 1.326, tol=1e-3)
 
     # test that future package works
     suppressPackageStartupMessages(suppressWarnings(library(future)))