Running 'testthat.R' [81s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(BTYDplus)
  > 
  > test_check("BTYDplus")
  set param_init: 1, 1, 1, 1 
  chain: 1 step: 100 of 110 
  chain: 2 step: 100 of 110 
  chain: 1 step: 100 of 110 
  chain: 2 step: 100 of 110 
  set param_init: 1, 1, 1, 1, 1, 1 
  -- 1. Error: MCMC Helpers  -----------------------------------------------------
  memory exhausted (limit reached?)
  1: test_code(desc, code, env = parent.frame())
  2: tryCatch(withCallingHandlers({
         eval(code, test_env)
         if (!handled && !is.null(test)) {
             skip_empty()
         }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
         message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) {
     })
  3: tryCatchList(expr, classes, parentenv, handlers)
  4: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], 
         parentenv, handlers[[nh]])
  5: doTryCatch(return(expr), name, parentenv, handler)
  6: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  8: value[[3L]](cond)
  
  chain: 1 step: 100 of 120 
  -- 2. Error: Pareto/GGG MCMC  --------------------------------------------------
  memory exhausted (limit reached?)
  1: test_code(desc, code, env = parent.frame())
  2: tryCatch(withCallingHandlers({
         eval(code, test_env)
         if (!handled && !is.null(test)) {
             skip_empty()
         }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
         message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) {
     })
  3: tryCatchList(expr, classes, parentenv, handlers)
  4: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], 
         parentenv, handlers[[nh]])
  5: doTryCatch(return(expr), name, parentenv, handler)
  6: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  8: value[[3L]](cond)
  
  -- 3. Error: Pareto/NBD MCMC (@test-pareto-nbd-mcmc.R#41)  ---------------------
  cannot allocate vector of size 156 Kb
  1: pnbd.GenerateData(n, T.cal, 52, params) at testthat/test-pareto-nbd-mcmc.R:41
  2: pggg.GenerateData(n, T.cal, T.star, params, date.zero)
  
  == testthat results  ===========================================================
  OK: 143 SKIPPED: 3 FAILED: 3
  1. Error: MCMC Helpers 
  2. Error: Pareto/GGG MCMC 
  3. Error: Pareto/NBD MCMC (@test-pareto-nbd-mcmc.R#41) 
  
  Error: testthat unit tests failed
  Execution halted