Running 'abf.R' [0s]
  Running 'abfir.R' [0s]
  Running 'bm.R' [3s]
  Running 'bm2.R' [3s]
  Running 'bpfilter.R' [0s]
  Running 'enkf.R' [0s]
  Running 'gbm.R' [2s]
  Running 'girf.R' [0s]
  Running 'he10.R' [3s]
  Running 'ibpf.R' [0s]
  Running 'ienkf.R' [0s]
  Running 'igirf.R' [0s]
  Running 'iter_filter.R' [3s]
  Comparing 'iter_filter.Rout' to 'iter_filter.Rout.save' ... OK
  Running 'iubf.R' [0s]
  Running 'lorenz.R' [3s]
  Running 'measles.R' [3s]
  Running 'pfilter.R' [0s]
  Running 'plot.R' [0s]
  Running 'simulate.R' [0s]
  Running 'xtests.R' [3s]
Running the tests in 'tests/bm.R' failed.
Complete output:
  > png(filename="bm-%02d.png",res=100)
  > library(spatPomp)
  Loading required package: pomp
  > 
  > 
  > # For CRAN tests, need to limit to two cores
  > # https://stackoverflow.com/questions/50571325/r-cran-check-fail-when-using-parallel-functions
  > chk <- Sys.getenv("_R_CHECK_LIMIT_CORES_", "")
  > 
  > if (nzchar(chk) && chk == "TRUE") {
  +   # use 2 cores for CRAN
  +   num_workers <- 2L
  + } else {
  +   # use all cores when testing
  +   num_workers <- parallel::detectCores()
  + }
  > num_workers <- 2L
  > 
  > # if(.Platform$OS.type != "windows")
  > #   doParallel::registerDoParallel(num_workers)
  > 
  > # For covr, needs to be single core (https://github.com/r-lib/covr/issues/227)
  > 
  > # CRAN win-builder test fails in foreach for iubf when using a single
  > # core registered with 
  > ###  doParallel::registerDoParallel(1)
  > # so run without registering parallel backend at all
  > # this generates an R warning
  > # Warning message:
  > # executing %dopar% sequentially: no parallel backend registered 
  > # but that is not a major problem
  > 
  > set.seed(2)
  > ## doRNG::registerDoRNG(2)
  > ## using doRNG with 1 core leads to warnings: it seems to make
  > ## foreach confused about whether it is running in parallel or not.
  > 
  > b_model <- bm(U=2,N=2) 
  Error in value[[3L]](cond) : 
    DLL 'purrr' not found: maybe not installed for this architecture?
  Calls: bm ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
  Execution halted
Running the tests in 'tests/bm2.R' failed.
Complete output:
  > library(spatPomp)
  Loading required package: pomp
  > set.seed(0)
  > 
  > b2_U <- 4
  > b2 <- bm2(U=b2_U,N=2,unit_specific_names="rho")
  Error in value[[3L]](cond) : 
    DLL 'purrr' not found: maybe not installed for this architecture?
  Calls: bm2 ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
  Execution halted
Running the tests in 'tests/gbm.R' failed.
Complete output:
  > library(spatPomp)
  Loading required package: pomp
  > set.seed(2)
  > 
  > gbm_model <- gbm(U=3,N=2) 
  Error in value[[3L]](cond) : 
    DLL 'purrr' not found: maybe not installed for this architecture?
  Calls: gbm ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
  Execution halted
Running the tests in 'tests/he10.R' failed.
Complete output:
  > library(spatPomp)
  Loading required package: pomp
  > set.seed(22)
  > 
  > model_type <- "he10"
  > parNames <- c("alpha","R0","g","sigma","gamma","amplitude","cohort","sigmaSE","S_0","E_0","I_0","rho","psi","iota","mu")
  > if(model_type == "mostly fixed"){
  +   sharedParNames <- c("R0","psi")
  +   unitParNames <- c("rho","S_0")
  +   estParNames <- c(sharedParNames,unitParNames)
  +   fixedParNames <- setdiff(parNames,estParNames)
  + } else if(model_type == "mostly shared"){
  +   sharedParNames <- c("alpha","R0","psi","g","sigma","gamma","amplitude","cohort","sigmaSE")
  +   unitParNames <- c("rho","S_0","E_0","I_0")
  +   estParNames <- c(sharedParNames,unitParNames)
  +   fixedParNames <- setdiff(parNames,estParNames)
  + } else if(model_type == "plausible parameters shared"){
  +   # parameters are shared when that makes mechanistic sense. 
  +   sharedParNames <- c("alpha","R0","g","sigma","gamma","amplitude","cohort")
  +   unitParNames <- c("sigmaSE","S_0","E_0","I_0","rho","psi")
  +   estParNames <- c(sharedParNames,unitParNames)
  +   fixedParNames <- setdiff(parNames,estParNames)
  + } else if(model_type == "all unit-specific"){
  +   # all parameters estimated except life expecancy
  +   # and immigration, which should not be needed when there is coupling
  +   fixedParNames <- c("mu","iota")
  +   sharedParNames <- NULL
  +   unitParNames <- setdiff(parNames,fixedParNames)
  +   estParNames <- c(sharedParNames,unitParNames)
  + } else if(model_type == "he10"){
  +   # all the parameters estimated by He et al (2010) Table 2
  +   fixedParNames <- c("mu","g")
  +   sharedParNames <- NULL
  +   unitParNames <- setdiff(parNames,fixedParNames)
  +   estParNames <- c(sharedParNames,unitParNames)  
  + }
  > 
  > # Note: here we assume that there are no unestimated unit-specific
  > # parameters. That could readily be accommodated if needed.
  > 
  > h_model <- he10(,U=2,dt=4/365,Tmax=1950.5,
  +   expandedParNames=estParNames)
  Error in value[[3L]](cond) : 
    DLL 'purrr' not found: maybe not installed for this architecture?
  Calls: he10 ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
  Execution halted
Running the tests in 'tests/lorenz.R' failed.
Complete output:
  > 
  > library(spatPomp)
  Loading required package: pomp
  > set.seed(3)
  > 
  > l <- lorenz(U=5,N=3)
  Error in value[[3L]](cond) : 
    DLL 'purrr' not found: maybe not installed for this architecture?
  Calls: lorenz ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
  Execution halted
Running the tests in 'tests/measles.R' failed.
Complete output:
  > 
  > 
  > library(spatPomp)
  Loading required package: pomp
  > set.seed(1)
  > 
  > ## a default measles model with fixed shared initial value parameters (IVPs)
  > ## compiled into the object
  > 
  > m_U <- 2 
  > m_model <- measles(U=m_U)
  Error in value[[3L]](cond) : 
    DLL 'purrr' not found: maybe not installed for this architecture?
  Calls: measles ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
  Execution halted