Running ‘test-all.R’ [46s/46s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library(testthat,quietly=TRUE)
  > 
  > test_check("growcurves")
  Loading required package: growcurves
  Loading required package: Rcpp
  [1] "Your chosen set of treatment base distributions  = car"
  [1] "Your chosen set of treatment base distributions  = mvn"
  [1] "Your chosen set of treatment base distributions  = ind"
  [1] "Your chosen option = dp"
  [1] "Your chosen option = lgm"
  [1] "Your chosen option = dp"
  [1] "Your chosen option = mmi for multivariate MM effects"
  [1] "Your chosen option = mmcar for multivariate MM effects"
  [1] "Your chosen option = mmcar"
  [1] "Your chosen option = mmigrp"
  [1] "Your chosen option = mmi"
  [1] "Your chosen set of MM term priors  = mmi mmcar mmi mmcar"
  
   *** caught segfault ***
  address 0x30, cause 'memory not mapped'
  
  Traceback:
   1: length(res)
   2: doTryCatch(return(expr), name, parentenv, handler)
   3: tryCatchOne(expr, names, parentenv, handlers[[1L]])
   4: tryCatchList(expr, classes, parentenv, handlers)
   5: tryCatch(...elt(i), error = function(e) {    e$call <- cl.i    stop(e)})
   6: withCallingHandlers(tryCatch(...elt(i), error = function(e) {    e$call <- cl.i    stop(e)}), warning = function(w) {    w$call <- cl.i    w})
   7: stopifnot(length(res) == 19)
   8: dpgrowmult.default(y = datsimmult$y, subject = datsimmult$subject,     trt = datsimmult$trt, time = datsimmult$time, n.random = datsimmult$n.random,     n.fix_degree = 2, Omega = datsimmult$Omega, group = datsimmult$group,     subj.aff = datsimmult$subj.aff, W.subj.aff = datsimmult$W.subj.aff,     n.iter = niter, n.burn = nburn, n.thin = nthin, strength.mm = 0.1,     shape.dp = 4, plot.out = TRUE, option = x, ulabs = paste("cbt",         1:4, sep = "_"))
   9: dpgrowmult(y = datsimmult$y, subject = datsimmult$subject, trt = datsimmult$trt,     time = datsimmult$time, n.random = datsimmult$n.random, n.fix_degree = 2,     Omega = datsimmult$Omega, group = datsimmult$group, subj.aff = datsimmult$subj.aff,     W.subj.aff = datsimmult$W.subj.aff, n.iter = niter, n.burn = nburn,     n.thin = nthin, strength.mm = 0.1, shape.dp = 4, plot.out = TRUE,     option = x, ulabs = paste("cbt", 1:4, sep = "_"))
  10: mod(option, niter, nburn, nthin)
  11: eval(code, test_env)
  12: eval(code, test_env)
  13: withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error)
  14: doTryCatch(return(expr), name, parentenv, handler)
  15: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  16: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error), error = function(e) {}, skip = function(e) {})
  21: test_code(desc, code, env = parent.frame())
  22: test_that("dpgrowmult with multiple MM terms returns expected objects",     {        option <- c("mmi", "mmcar", "mmi", "mmcar")        niter <- 5        nburn <- 2        nthin <- 1        MMMULT <- mod(option, niter, nburn, nthin)        srm <- summary(MMMULT)$summary.results        parms <- samples(MMMULT)        pr <- MMMULT$plot.results        num.subj <- length(unique(datsimmult$subject))        nrandom <- ncol(srm$Z)        numt <- srm$numt        Nterms <- length(numt)        option <- srm$model        expect_that(MMMULT, is_a("dpgrowmult"))        expect_that(srm$u.summary, is_a("list"))        expect_that(length(option), equals(Nterms))        expect_that(nrow(srm$u.summary[[2]]), is_equivalent_to(numt[2]))        expect_that(nrow(srm$tauu.summary), is_equivalent_to(Nterms))        expect_that(srm$bmat.summary, is_a("list"))        expect_that(ncol(srm$X), equals(5))        expect_match(colnames(srm$X), "time")        expect_that(length(parms$Gamma), equals(length(option)))        expect_that(ncol(parms$Gamma[[2]]), is_equivalent_to(numt[2]))        expect_that(names(parms$Gamma), is_equivalent_to(as.character(srm$ulabs)))        expect_that(nrow(parms$M), is_equivalent_to((niter -             nburn)/nthin))        expect_that(ncol(parms$B), is_equivalent_to(num.subj *             nrandom))        expect_that(length(residuals(MMMULT)), equals(length(datsimmult$y)))    })
  23: eval(exprs, env)
  24: eval(exprs, env)
  25: source_file(path, new.env(parent = env), chdir = TRUE)
  26: force(code)
  27: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,     {        lister$start_file(basename(path))        source_file(path, new.env(parent = env), chdir = TRUE)        end_context()    })
  28: FUN(X[[i]], ...)
  29: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE)
  30: force(code)
  31: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE))
  32: test_files(paths, reporter = reporter, env = env, ...)
  33: test_dir(test_path, reporter = reporter, env = env, filter = filter,     ...)
  34: with_top_env(env, {    test_dir(test_path, reporter = reporter, env = env, filter = filter,         ...)})
  35: run_tests(package, test_path, filter, reporter, ...)
  36: test_check("growcurves")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault