Running ‘testthat.R’ [17s/38s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(umx)
  Loading required package: OpenMx
  To take full advantage of multiple cores, use:
    mxOption(NULL, 'Number of Threads', parallel::detectCores())
  For an overview type '?umx'
  
  Attaching package: 'umx'
  
  The following object is masked from 'package:stats':
  
      loadings
  
  > 
  > test_check("umx")
  Running One Factor with 10 parameters
  
  
  |   |x1   |x2    |x3   |x4    |x5 |
  |:--|:----|:-----|:----|:-----|:--|
  |x1 |.    |.     |0.01 |.     |.  |
  |x2 |.    |.     |0.01 |-0.01 |.  |
  |x3 |0.01 |0.01  |.    |.     |.  |
  |x4 |.    |-0.01 |.    |.     |.  |
  |x5 |.    |.     |.    |.     |.  |
  [1] "nb: You can zoom in on bad values with, e.g. suppress = .01, which will hide values smaller than this. Use digits = to round"
  'log Lik.' 30939.55 (df=4)
  
  
  |    |   a1|   c1|   e1|
  |:---|----:|----:|----:|
  |wt1 | 0.58| 0.58| 0.58|
  
   *** caught segfault ***
  address fc121d60, cause 'memory not mapped'
  
  Traceback:
   1: runHelper(model, frontendStart, intervals, silent, suppressWarnings,     unsafe, checkpoint, useSocket, onlyFrontend, useOptimizer)
   2: mxRun(model)
   3: umxACE(selDVs = "ht", dzData = dzData, mzData = mzData, sep = "")
   4: eval(code, test_env)
   5: eval(code, test_env)
   6: withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error)
   7: doTryCatch(return(expr), name, parentenv, handler)
   8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
   9: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  10: doTryCatch(return(expr), name, parentenv, handler)
  11: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  12: tryCatchList(expr, classes, parentenv, handlers)
  13: 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) {})
  14: test_code(desc, code, env = parent.frame())
  15: test_that("umxACE works", {    data(twinData)    mzData <- twinData[twinData$zygosity %in% "MZFF", ]    dzData <- twinData[twinData$zygosity %in% "DZFF", ]    m1 = umxACE(selDVs = "wt", dzData = dzData, mzData = mzData,         sep = "", boundDiag = 0)    expect_error({        m1 = umxACE(selDVs = "wt", dzData = dzData, mzData = mzData,             sep = "", boundDiag = TRUE)    })    m1 = umxACE(selDVs = "ht", dzData = dzData, mzData = mzData,         sep = "")    expect_lt(as.numeric(logLik(m1)), 5992.784)})
  16: eval(exprs, env)
  17: eval(exprs, env)
  18: source_file(path, new.env(parent = env), chdir = TRUE)
  19: force(code)
  20: 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()    })
  21: FUN(X[[i]], ...)
  22: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE)
  23: force(code)
  24: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE))
  25: test_files(paths, reporter = reporter, env = env, ...)
  26: test_dir(test_path, reporter = reporter, env = env, filter = filter,     ...)
  27: with_top_env(env, {    test_dir(test_path, reporter = reporter, env = env, filter = filter,         ...)})
  28: run_tests(package, test_path, filter, reporter, ...)
  29: test_check("umx")
  An irrecoverable exception occurred. R is aborting now ...