Running ‘testthat.R’ [106s/115s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # NOTE: This will not test an uninstalled package.
  > library(testthat)
  > test_check('ifaTools')
  Loading required package: ifaTools
  Loading required package: shiny
  Loading required package: ggplot2
  Loading required package: reshape2
  Loading required package: rpf
  Loading required package: parallel
  Loading required package: OpenMx
  To take full advantage of multiple cores, use:
    mxOption(NULL, 'Number of Threads', parallel::detectCores())
  [1] "/home/ripley/R/packages/tests32/ifaTools.Rcheck/tests/testthat"
  1. Failure: addExploratoryFactors (@test-addExploratoryFactor.R#80) ------------
  m1$output$fit - m2$output$fit not equal to 115.39.
  1/1 mismatches
  [1] -316 - 115 == -431
  
  
  
   *** caught segfault ***
  address 0, cause 'memory not mapped'
  Warning: stack imbalance in '<-', 167 then 168
  Warning: stack imbalance in '<-', 168 then 169
  Warning: stack imbalance in '{', 163 then 162
  Warning: stack imbalance in '{', 159 then 160
  Warning: stack imbalance in '{', 150 then 151
  Warning: stack imbalance in '[[', 172 then 173
  Warning: stack imbalance in '[[<-', 185 then 186
  Warning: stack imbalance in '$', 184 then 189
  Warning: stack imbalance in '{', 221 then 220
  Warning: stack imbalance in 'switch', 217 then 216
  Warning: stack imbalance in '<-', 215 then 214
  Warning: stack imbalance in '$', 218 then 217
  Warning: stack imbalance in '$', 237 then 235
  Warning: stack imbalance in '{', 226 then 225
  Warning: stack imbalance in '<-', 204 then 205
  Warning: stack imbalance in 'c', 228 then 227
  
  Traceback:
   1: gsub("Error.*?: ", "", as.character(error))
   2: as.expectation.error(e, srcref = srcref)
   3: as.expectation(e, srcref = srcref)
   4: register_expectation(e, frame + 11, sys.nframe() - 2)
   5: h(simpleError(msg, call))
   6: .handleSimpleError(function (e) {    e$call <- sys.calls()[(frame + 11):(sys.nframe() - 2)]    register_expectation(e, frame + 11, sys.nframe() - 2)    signalCondition(e)}, "Element-wise '*' not conformable: '? arg 0' is 1x2 and '? arg 1' is 1x3\n? arg 0 =  matrix(c(    # 1x2\n 0.9999, 0.9999), byrow=TRUE, nrow=1, ncol=2)\n? arg 1 =  matrix(c(    # 1x3\n 0.9999, 0.9999,   7), byrow=TRUE, nrow=1, ncol=3)\n",     quote(runHelper(model, frontendStart, intervals, silent,         suppressWarnings, unsafe, checkpoint, useSocket, onlyFrontend,         useOptimizer)))
   7: runHelper(model, frontendStart, intervals, silent, suppressWarnings,     unsafe, checkpoint, useSocket, onlyFrontend, useOptimizer)
   8: mxRun(mxModel(m1, mxComputeSequence(list(mxComputeNumericDeriv(checkGradient = FALSE),     mxComputeReportDeriv()))), silent = TRUE)
   9: checkAnalyticDeriv(omxAssignFirstParameters(m1))
  10: eval(code, test_env)
  11: eval(code, test_env)
  12: withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error)
  13: doTryCatch(return(expr), name, parentenv, handler)
  14: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  15: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: 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) {})
  20: test_code(desc, code, env = parent.frame())
  21: test_that("uniquenessPrior", {    imat <- mxMatrix(name = "item", nrow = 3, ncol = 3, values = 1:9,         free = TRUE, labels = paste("l", 1:9, sep = ""))    imat$labels[1, 2] <- "l1"    imat$free[2, 2] <- FALSE    imat$free[3, ] <- FALSE    spec <- list()    spec[1:3] <- rpf.grm(factors = 2)    m1 <- mxModel("test", imat, mxExpectationBA81(spec))    m1 <- mxModel(m1, uniquenessPrior(m1, 2), mxFitFunctionMultigroup(c("uniquenessPrior")))    m1$expectation <- NULL    checkAnalyticDeriv(omxAssignFirstParameters(m1))})
  22: eval(exprs, env)
  23: eval(exprs, env)
  24: source_file(path, new.env(parent = env), chdir = TRUE)
  25: force(code)
  26: 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()    })
  27: FUN(X[[i]], ...)
  28: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE)
  29: force(code)
  30: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE))
  31: test_files(paths, reporter = reporter, env = env, ...)
  32: test_dir(test_path, reporter = reporter, env = env, filter = filter,     ...)
  33: with_top_env(env, {    test_dir(test_path, reporter = reporter, env = env, filter = filter,         ...)})
  34: run_tests(package, test_path, filter, reporter, ...)
  35: test_check("ifaTools")
  An irrecoverable exception occurred. R is aborting now ...