Skip to content

FCO

Flexible Cutoffs for Model Fit Evaluation in Covariance-Based Structural Models

v2.0.2 · Feb 25, 2026 · GPL (>= 3)
CRAN GitHub Mirror

Description

A toolbox to derive flexible cutoffs for fit indices in 'Covariance-based Structural Equation Modeling' based on the paper by 'Niemand & Mai (2018)' <doi:10.1007/s11747-018-0602-9>. Flexible cutoffs are an alternative to fixed cutoffs - rules-of-thumb - regarding an appropriate cutoff for fit indices such as 'CFI' or 'SRMR'. It has been demonstrated that these flexible cutoffs perform better than fixed cutoffs in grey areas where misspecification is not easy to detect. The package provides an alternative to the tool at <https://flexiblecutoffs.org> as it allows to tailor flexible cutoffs to a given dataset and model, which is so far not available in the tool. The package simulates fit indices based on a given dataset and model and then estimates the flexible cutoffs. Some useful functions, e.g., to determine the 'GoF-' or 'BoF-nature' of a fit index, are provided. So far, additional options for a relative use (is a model better than another?) are provided in an exploratory manner.

Downloads

410

Last 30 days

8190th

410

Last 90 days

410

Last year

CRAN Check Status

2 ERROR
12 OK
Show all 14 flavors
Flavor Status
r-devel-linux-x86_64-debian-clang OK
r-devel-linux-x86_64-debian-gcc OK
r-devel-linux-x86_64-fedora-clang OK
r-devel-linux-x86_64-fedora-gcc OK
r-devel-macos-arm64 ERROR
r-devel-windows-x86_64 OK
r-oldrel-macos-arm64 OK
r-oldrel-macos-x86_64 OK
r-oldrel-windows-x86_64 OK
r-patched-linux-x86_64 OK
r-release-linux-x86_64 OK
r-release-macos-arm64 ERROR
r-release-macos-x86_64 OK
r-release-windows-x86_64 OK
Check details (16 non-OK)
OK r-devel-linux-x86_64-debian-clang

*


            

            

              

                OK
                r-devel-linux-x86_64-debian-gcc
              

              
*

              

            

            

              

                OK
                r-devel-linux-x86_64-fedora-clang
              

              
*

              

            

            

              

                OK
                r-devel-linux-x86_64-fedora-gcc
              

              
*

              

            

            

              

                ERROR
                r-devel-macos-arm64
              

              
examples

              
Running examples in ‘FCO-Ex.R’ failed
The error most likely occurred in:

> ### Name: flex_co
> ### Title: Obtain flexible cutoffs for one or two models
> ### Aliases: flex_co
> 
> ### ** Examples
> 
> #Note: Demonstration only! Please use higher numbers of replications for your applications (>= 500).
> #A single model to obtain fit indices for
> mod <- "
+ F1 =~ Q5 + Q7 + Q8
+ F2 =~ Q2 + Q4
+ F3 =~ Q10 + Q11 + Q12 + Q13 + Q18 + Q19 + Q20 + Q21 + Q22
+ F4 =~ Q1 + Q17
+ F5 =~ Q6 + Q14 + Q15 + Q16
+ "
> fits.single <- gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)
Warning in pop_mod(mod = mod1, x = x, type = type, standardized = standardized) :
  All loadings are < 1. Consider revision of standardized.

 *** caught segfault ***
address 0x110, cause 'invalid permissions'

 *** caught segfault ***
address 0x110, cause 'invalid permissions'

Traceback:
 1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one, 
Traceback:
 1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
    unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,  2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
 5:     WLS.V = WLS.V, NACOV = NACOV)
eval(sc, parent.frame())
 6: eval(sc, parent.frame())
 7:  3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
 5: eval(sc, parent.frame())
 6: eval(sc, parent.frame())
 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
 8: doTryCatch(return(expr), name, parentenv, handler)lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
 8: doTryCatch(return(expr), name, parentenv, handler)
 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
10: tryCatchList(expr, classes, parentenv, handlers)

 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
10: tryCatchList(expr, classes, parentenv, handlers)11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)
11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    invisible(structure(msg, class = "try-error", condition = e))})
    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)    std.lv = TRUE, warn = FALSE), silent = TRUE)
13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
14: FUN(X[[i]], ...)

13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
14: 15: lapply(X = S, FUN = FUN, ...)
16: doTryCatch(return(expr), name, parentenv, handler)
17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
FUN(X[[i]], ...)
15: 18: tryCatchList(expr, classes, parentenv, handlers)
lapply(X = S, FUN = FUN, ...)
16: 19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75LdoTryCatch(return(expr), name, parentenv, handler)
17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
18: tryCatchList(expr, classes, parentenv, handlers)
19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],         cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }                type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    invisible(structure(msg, class = "try-error", condition = e))})
    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))22: FUN(X[[i]], ...)
})
20: 23: lapply(seq_len(cores), inner.do)
try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
21: 24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
25: gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)
An irrecoverable exception occurred. R is aborting now ...
sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
22: FUN(X[[i]], ...)
23: lapply(seq_len(cores), inner.do)
24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
25: gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)
An irrecoverable exception occurred. R is aborting now ...
Warning in parallel::mclapply(1:rep, function(r) { :
  scheduled cores 1, 2 did not deliver results, all values of the jobs will be affected
> flex_co(fits = fits.single, index = c("CFI", "SRMR"))
Warning in flex_co(fits = fits.single, index = c("CFI", "SRMR")) :
  The number of replications is lower than the recommended minimum of 500. Consider with care.
Error in fits.nna[[1]] : subscript out of bounds
Calls: flex_co -> %in%
Execution halted

            

            

              

                ERROR
                r-devel-macos-arm64
              

              
tests

              
  Running ‘testthat.R’ [9s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(FCO)
  > 
  > test_check("FCO")
  This is lavaan 0.6-21
  lavaan is FREE software! Please report any bugs.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Saving _problems/test-flex_co-29.R
  Saving _problems/test-flex_co-39.R
  Saving _problems/test-flex_co-52.R
  Saving _problems/test-flex_co-75.R
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the result fco of gen_fit a list of length rep?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)        expect_type(out$fco, "list")        expect_equal(length(out$fco), 10)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the result fco of gen_fit a list of length rep?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)        expect_type(out$fco, "list")        expect_equal(length(out$fco), 10)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {
  Traceback:
   1:     generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: eval(code, test_env)
  28: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
  withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")    free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is mod1 a model?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    expect_s3_class(lavaanify(out$mod1), "data.frame")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  }, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: 41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])test_code(code, parent.frame())
  37: test_that("Is mod1 a model?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    expect_s3_class(lavaanify(out$mod1), "data.frame")})
  38: eval(code, test_env)
  39: 
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, }, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53:     error_call = error_call)tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: 
  50: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, FUN(X[[i]], ...)    env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: 
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")    env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: 
  An irrecoverable exception occurred. R is aborting now ...
  test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is x a data.frame?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    expect_s3_class(out$x, "data.frame")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is x a data.frame?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    expect_s3_class(out$x, "data.frame")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is standard type NM?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    expect_equal(out$type, "NM")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
  
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO") 5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  An irrecoverable exception occurred. R is aborting now ...
  
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is standard type NM?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    expect_equal(out$type, "NM")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "HB")
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is type HB taken over?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "HB")    expect_equal(out$type, "HB")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "HB")
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is type HB taken over?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "HB")    expect_equal(out$type, "HB")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM")
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is type EM taken over?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM")    expect_equal(out$type, "EM")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM")
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is type EM taken over?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM")    expect_equal(out$type, "EM")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the result fco of gen_fit a list of matrices with two rows?",     {        out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)        expect_type(out$fco, "list")        expect_equal(nrow(do.call("rbind", out$fco)), 20)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the result fco of gen_fit a list of matrices with two rows?",     {        out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)        expect_type(out$fco, "list")        expect_equal(nrow(do.call("rbind", out$fco)), 20)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Saving _problems/test-gen_fit-99.R
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is a second model accepted?", {    out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)    expect_s3_class(lavaanify(out$mod2), "data.frame")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: 
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
      invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {50:         if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
                  type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  An irrecoverable exception occurred. R is aborting now ...
  
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is a second model accepted?", {    out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)    expect_s3_class(lavaanify(out$mod2), "data.frame")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is type EM used when DV is TRUE?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)    expect_equal(out$type, "EM")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is type EM used when DV is TRUE?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)    expect_equal(out$type, "EM")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is constraining used when DV is TRUE?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)    expect_equal(out$merge.mod, FALSE)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is constraining used when DV is TRUE?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)    expect_equal(out$merge.mod, FALSE)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
  
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: 
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w)) 
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {            w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)     invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23:             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)
  26: eval(code, test_env)
  27: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectationseval(code, test_env)    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))
      }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, 28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }    error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: 
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is dv.cutoff set to .9 when DV is TRUE?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)    expect_equal(out$dv.cutoff, 0.9)})
  38: eval(code, test_env)
      }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
          skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {37: test_that("Is dv.cutoff set to .9 when DV is TRUE?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)    expect_equal(out$dv.cutoff, 0.9)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {43: tryCatchList(expr, classes, parentenv, handlers)    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, 
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {    error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
          skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
      invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57:     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectationstest_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
      if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Merging is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the first and second factor merged when DV is TRUE, merge.mod is TRUE and dv.factors is missing?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE,             merge.mod = TRUE)        expect_equal(grepl("F2 =~ ", out$mod2), FALSE)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the first and second factor merged when DV is TRUE, merge.mod is TRUE and dv.factors is missing?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE,             merge.mod = TRUE)        expect_equal(grepl("F2 =~ ", out$mod2), FALSE)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Merging is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE,     dv.factors = c("F2", "F3"))
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is merging used when DV is TRUE, merge.mod is TRUE and dv.factors is provided?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE,             merge.mod = TRUE, dv.factors = c("F2", "F3"))        expect_equal(out$merge.mod, TRUE)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE,     dv.factors = c("F2", "F3"))
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is merging used when DV is TRUE, merge.mod is TRUE and dv.factors is provided?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE,             merge.mod = TRUE, dv.factors = c("F2", "F3"))        expect_equal(out$merge.mod, TRUE)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: 
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)    std.lv = TRUE, warn = FALSE)
   8:         .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: })
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: tryCatchList(expr, classes, parentenv, handlers)
  11: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]FUN(X[[i]], ...)
  23:         w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25:                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.cutoff = 0.85)
  26: eval(code, test_env)
  27: eval(code, test_env)        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, 
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }    free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  }, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: 14: FUN(X[[i]], ...)doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  15: 
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {lapply(X = S, FUN = FUN, ...)
          skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")16: doTryCatch(return(expr), name, parentenv, handler)}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  17: 
  37: test_that("Is dv.cutoff set to .85 taken over?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE,         dv.cutoff = 0.85)    expect_equal(grepl("F2~~0.85*F1", out$mod2), FALSE)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {withCallingHandlers({    eval(code, test_env)    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23:     new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {lapply(seq_len(cores), inner.do)
          skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.cutoff = 0.85)
  26: 
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {eval(code, test_env)
  27:         skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {eval(code, test_env)
  28:     if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {        skip(paste0("{", e$package, "} is not installed."))    }    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29:     invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50:     else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, 
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
      error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: 57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env, test_code(code, parent.frame())
  37: test_that("Is dv.cutoff set to .85 taken over?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE,         dv.cutoff = 0.85)    expect_equal(grepl("F2~~0.85*F1", out$mod2), FALSE)})
  38: eval(code, test_env)
  39: eval(code, test_env)
      stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter, 40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
      else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)
  26: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  27: withCallingHandlers(expr, condition = function(cnd) {    if (!is.null(matched) || !matches(cnd)) {        return()    }    if (can_entrace(cnd)) {        cnd <- cnd_entrace(cnd)    }    matched <<- cnd    if (inherits(cnd, "message") || inherits(cnd, "warning")) {        cnd_muffle(cnd)    }    else if (inherits(cnd, "error") || inherits(cnd, "skip")) {        return_from(tl, cnd)    }})
  28: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)),     ...)
  29: quasi_capture(enquo(object), label, capture_matching_condition,     matches = matcher)
  30: expect_condition_matching_("warning", {    {        object    }}, regexp = regexp, class = class, ..., inherit = inherit, info = info,     label = label)
  31: expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE))
  32: eval(code, test_env)
  33: eval(code, test_env)
  34: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  35: doTryCatch(return(expr), name, parentenv, handler)
  36: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  37: tryCatchList(expr, classes, parentenv, handlers)
  38: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  39: doWithOneRestart(return(expr), restart)
  40: withOneRestart(expr, restarts[[1L]])
  41: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  42: test_code(code, parent.frame())
  43: test_that("Is a warning produced when standardized is switched off?",     {        expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10,             standardized = FALSE))    })
  44: eval(code, test_env)
  45: eval(code, test_env)
  46: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  47: doTryCatch(return(expr), name, parentenv, handler)
  48: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  49: tryCatchList(expr, classes, parentenv, handlers)
  50: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  51: doWithOneRestart(return(expr), restart)
  52: withOneRestart(expr, restarts[[1L]])
  53: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  54: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  55: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  56: FUN(X[[i]], ...)
  57: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  58: doTryCatch(return(expr), name, parentenv, handler)
  59: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  60: tryCatchList(expr, classes, parentenv, handlers)
  61: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  62: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  63: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  64: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  65: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  66: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)
  26: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  27: withCallingHandlers(expr, condition = function(cnd) {    if (!is.null(matched) || !matches(cnd)) {        return()    }    if (can_entrace(cnd)) {        cnd <- cnd_entrace(cnd)    }    matched <<- cnd    if (inherits(cnd, "message") || inherits(cnd, "warning")) {        cnd_muffle(cnd)    }    else if (inherits(cnd, "error") || inherits(cnd, "skip")) {        return_from(tl, cnd)    }})
  28: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)),     ...)
  29: quasi_capture(enquo(object), label, capture_matching_condition,     matches = matcher)
  30: expect_condition_matching_("warning", {    {        object    }}, regexp = regexp, class = class, ..., inherit = inherit, info = info,     label = label)
  31: expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE))
  32: eval(code, test_env)
  33: eval(code, test_env)
  34: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  35: doTryCatch(return(expr), name, parentenv, handler)
  36: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  37: tryCatchList(expr, classes, parentenv, handlers)
  38: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  39: doWithOneRestart(return(expr), restart)
  40: withOneRestart(expr, restarts[[1L]])
  41: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  42: test_code(code, parent.frame())
  43: test_that("Is a warning produced when standardized is switched off?",     {        expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10,             standardized = FALSE))    })
  44: eval(code, test_env)
  45: eval(code, test_env)
  46: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  47: doTryCatch(return(expr), name, parentenv, handler)
  48: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  49: tryCatchList(expr, classes, parentenv, handlers)
  50: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  51: doWithOneRestart(return(expr), restart)
  52: withOneRestart(expr, restarts[[1L]])
  53: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  54: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  55: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  56: FUN(X[[i]], ...)
  57: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  58: doTryCatch(return(expr), name, parentenv, handler)
  59: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  60: tryCatchList(expr, classes, parentenv, handlers)
  61: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  62: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  63: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  64: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  65: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  66: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is kurtosis and skewness unequal to 1 when assume.mvn is FALSE?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)        expect_gt(FCO:::mardia(out$x)[1], 1)        expect_gt(FCO:::mardia(out$x)[1], 1)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is kurtosis and skewness unequal to 1 when assume.mvn is FALSE?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)        expect_gt(FCO:::mardia(out$x)[1], 1)        expect_gt(FCO:::mardia(out$x)[1], 1)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }
  Traceback:
      else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile) 1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
          .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32:     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names, tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35:     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
  withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    } 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal), 
   8: doTryCatch(return(expr), name, parentenv, handler)    end_test = function() {    })
  
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])36: test_code(code, parent.frame())
  37: test_that("Is the seed set properly?", {    out1 <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    out2 <- gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)    expect_equal(out1$seed, out2$seed)})
  10: tryCatchList(expr, classes, parentenv, handlers)
  38: eval(code, test_env)
  39: eval(code, test_env)
  11: tryCatch(expr, error = function(e) {
  40: withCallingHandlers({    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))     eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {            call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: 
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  14: FUN(X[[i]], ...)
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  15: lapply(X = S, FUN = FUN, ...)
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, 16: doTryCatch(return(expr), name, parentenv, handler)
      env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter, 17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
      ..., load_package = "installed")
  60: 18: tryCatchList(expr, classes, parentenv, handlers)
  test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the seed set properly?", {    out1 <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    out2 <- gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)    expect_equal(out1$seed, out2$seed)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the seed set properly?", {    out1 <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    out2 <- gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)    expect_equal(out1$seed, out2$seed)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  }, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the seed set properly?", {    out1 <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    out2 <- gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)    expect_equal(out1$seed, out2$seed)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
      invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Saving _problems/test-recommend-34.R
  Saving _problems/test-recommend-56.R
  Saving _problems/test-recommend-69.R
  Saving _problems/test-recommend-94.R
  Saving _problems/test-recommend-112.R
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : " 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
      WLS.V = WLS.V, NACOV = NACOV)
   3: 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
          w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ") 5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
          .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  })
  20: 19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21:     if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75LsendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22:         sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w)) FUN(X[[i]], ...)
  23:             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {lapply(seq_len(cores), inner.do)
  24:         cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  }, mc.cores = cores)
  25: 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: 22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  eval(code, test_env)
  27: 24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  eval(code, test_env)
  28: 27: eval(code, test_env)
  withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations28: withCallingHandlers({    eval(code, test_env)    if (snapshot_skipped) {        skip("On CRAN")    }    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    else if (!new_expectations && skip_on_empty) {        skip_empty()    }    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30:     invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: 
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations
  31: tryCatchList(expr, classes, parentenv, handlers)    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }
  32: tryCatch(withCallingHandlers({}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {
  34: withOneRestart(expr, restarts[[1L]])    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
          skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {33: doWithOneRestart(return(expr), restart)
      if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }34: withOneRestart(expr, restarts[[1L]])
  }, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: 35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
      new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)    }    else if (!new_expectations && skip_on_empty) {        skip_empty()
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {    error_call = error_call)
  40:         skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {doTryCatch(return(expr), name, parentenv, handler)
  41:     snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42:     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })tryCatchList(expr, classes, parentenv, handlers)
  43: 
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||% tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44:     StopReporter$new())
  37: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)38: FUN(X[[i]], ...)
  
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  47: test_dir("testthat", package = package, reporter = reporter, 
  40: doTryCatch(return(expr), name, parentenv, handler)    ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",     "F5"), dv.cutoff = 0.9)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",     "F5"), dv.cutoff = 0.9)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Merging is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4:         if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, })
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",     "F5"), merge.mod = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28:     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: 18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",     "F5"), merge.mod = TRUE)    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33:         skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: 
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)    error_call = error_call)
  
  46: 40: doTryCatch(return(expr), name, parentenv, handler)
  41: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Saving _problems/test-recommend_dv-43.R
  Saving _problems/test-recommend_dv-51.R
  Saving _problems/test-recommend_dv-59.R
  Saving _problems/test-recommend_dv-68.R
  [ FAIL 14 | WARN 25 | SKIP 0 | PASS 55 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-flex_co.R:24:13'): Is the function warning because of low replications? ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─testthat::expect_warning(...) at test-flex_co.R:24:13
   2. │ └─testthat:::expect_condition_matching_(...)
   3. │   └─testthat:::quasi_capture(...)
   4. │     ├─testthat (local) .capture(...)
   5. │     │ └─base::withCallingHandlers(...)
   6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   7. └─FCO::flex_co(...)
   8.   └─index %in% names(fits.nna[[1]])
  ── Error ('test-flex_co.R:34:13'): Is the function accepting multiple indices? ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-flex_co.R:34:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::flex_co(...)
   4.   └─index %in% names(fits.nna[[1]])
  ── Error ('test-flex_co.R:47:13'): Is the function reversing quantile definition based on gof? ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-flex_co.R:47:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::flex_co(...)
   4.   └─index %in% names(fits.nna[[1]])
  ── Error ('test-flex_co.R:70:13'): Is the function returning values for two models? ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-flex_co.R:70:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::flex_co(...)
   4.   └─index %in% names(fits.nna[[1]])
  ── Failure ('test-gen_fit.R:99:13'): Is the result fco of gen_fit a list of matrices with two rows? ──
  Expected `nrow(do.call("rbind", out$fco))` to equal 20.
  Differences:
  `actual` is NULL
  `expected` is a double vector (20)
  
  ── Error ('test-recommend.R:29:13'): Are the settings for purpose and focus following the recommendations by Mai et al.? #1 ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:29:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend.R:51:13'): Are the settings for purpose and focus following the recommendations by Mai et al.? #3 ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:51:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend.R:62:13'): Are the settings for purpose and focus following the recommendations by Mai et al.? #4 ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:62:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend.R:86:13'): Is the result rounded properly? ───────────
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:86:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend.R:104:13'): Are the indices properly used when override is TRUE? ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:104:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend_dv.R:40:13'): Are multiple fit indices supported? ────
  Error in `recommend_dv(fits = fits.dv.merge, index = c("CFI", "SRMR", "GFI"))`: Only dual model fit indices are supported so far for this function. Please revise or use flex_co.
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend_dv.R:40:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend_dv(...)
  ── Error ('test-recommend_dv.R:49:13'): Is the proper dv technique used? merging? ──
  Error in `recommend_dv(fits = fits.dv.merge, )`: Only dual model fit indices are supported so far for this function. Please revise or use flex_co.
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(recommend_dv(fits = fits.dv.merge, )) at test-recommend_dv.R:49:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend_dv(fits = fits.dv.merge, )
  ── Error ('test-recommend_dv.R:57:13'): Is the proper dv technique used? constraining? ──
  Error in `recommend_dv(fits = fits.dv.con, )`: Only dual model fit indices are supported so far for this function. Please revise or use flex_co.
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(recommend_dv(fits = fits.dv.con, )) at test-recommend_dv.R:57:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend_dv(fits = fits.dv.con, )
  ── Error ('test-recommend_dv.R:65:13'): Is the result rounded properly? ────────
  Error in `recommend_dv(fits = fits.dv.con, digits = 5)`: Only dual model fit indices are supported so far for this function. Please revise or use flex_co.
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(recommend_dv(fits = fits.dv.con, digits = 5)) at test-recommend_dv.R:65:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend_dv(fits = fits.dv.con, digits = 5)
  
  [ FAIL 14 | WARN 25 | SKIP 0 | PASS 55 ]
  Error:
  ! Test failures.
  Execution halted

            

            

              

                OK
                r-devel-windows-x86_64
              

              
*

              

            

            

              

                OK
                r-oldrel-macos-arm64
              

              
*

              

            

            

              

                OK
                r-oldrel-macos-x86_64
              

              
*

              

            

            

              

                OK
                r-oldrel-windows-x86_64
              

              
*

              

            

            

              

                OK
                r-patched-linux-x86_64
              

              
*

              

            

            

              

                OK
                r-release-linux-x86_64
              

              
*

              

            

            

              

                ERROR
                r-release-macos-arm64
              

              
examples

              
Running examples in ‘FCO-Ex.R’ failed
The error most likely occurred in:

> ### Name: flex_co
> ### Title: Obtain flexible cutoffs for one or two models
> ### Aliases: flex_co
> 
> ### ** Examples
> 
> #Note: Demonstration only! Please use higher numbers of replications for your applications (>= 500).
> #A single model to obtain fit indices for
> mod <- "
+ F1 =~ Q5 + Q7 + Q8
+ F2 =~ Q2 + Q4
+ F3 =~ Q10 + Q11 + Q12 + Q13 + Q18 + Q19 + Q20 + Q21 + Q22
+ F4 =~ Q1 + Q17
+ F5 =~ Q6 + Q14 + Q15 + Q16
+ "
> fits.single <- gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)
Warning in pop_mod(mod = mod1, x = x, type = type, standardized = standardized) :
  All loadings are < 1. Consider revision of standardized.

 *** caught segfault ***
address 0x110, cause 'invalid permissions'

 *** caught segfault ***
address 0x110, cause 'invalid permissions'

Traceback:
 1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
 5: eval(sc, parent.frame())
 6: eval(sc, parent.frame())
 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
 8: doTryCatch(return(expr), name, parentenv, handler)

Traceback:
 1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,  9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
10: tryCatchList(expr, classes, parentenv, handlers)
11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
14: FUN(X[[i]], ...)
15: lapply(X = S, FUN = FUN, ...)
16: doTryCatch(return(expr), name, parentenv, handler)
17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
    unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
18: tryCatchList(expr, classes, parentenv, handlers) 5: eval(sc, parent.frame())
 6: eval(sc, parent.frame())
 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, 
19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]    std.lv = TRUE, warn = FALSE)
 8: doTryCatch(return(expr), name, parentenv, handler)
 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))10: tryCatchList(expr, classes, parentenv, handlers)
11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
22: FUN(X[[i]], ...)
23: lapply(seq_len(cores), inner.do)
24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
25: gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)
An irrecoverable exception occurred. R is aborting now ...
13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
14: FUN(X[[i]], ...)
15: lapply(X = S, FUN = FUN, ...)
16: doTryCatch(return(expr), name, parentenv, handler)
17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
18: tryCatchList(expr, classes, parentenv, handlers)
19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
22: FUN(X[[i]], ...)
23: lapply(seq_len(cores), inner.do)
24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
25: gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)
An irrecoverable exception occurred. R is aborting now ...
Warning in parallel::mclapply(1:rep, function(r) { :
  scheduled cores 1, 2 did not deliver results, all values of the jobs will be affected
> flex_co(fits = fits.single, index = c("CFI", "SRMR"))
Warning in flex_co(fits = fits.single, index = c("CFI", "SRMR")) :
  The number of replications is lower than the recommended minimum of 500. Consider with care.
Error in fits.nna[[1]] : subscript out of bounds
Calls: flex_co -> %in%
Execution halted

            

            

              

                ERROR
                r-release-macos-arm64
              

              
tests

              
  Running ‘testthat.R’ [9s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(FCO)
  > 
  > test_check("FCO")
  This is lavaan 0.6-21
  lavaan is FREE software! Please report any bugs.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,  3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
      NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  
   8: doTryCatch(return(expr), name, parentenv, handler)
  16: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],         prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")                type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12:     if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: 
  14: FUN(X[[i]], ...)
  15: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {
  26: eval(code, test_env)
  27: eval(code, test_env)
      call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
          cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: 
  31: tryCatchList(expr, classes, parentenv, handlers)sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: 
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
          skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, 26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: 
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
      }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, 34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }    env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env, }, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
      error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)An irrecoverable exception occurred. R is aborting now ...
  
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: 
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {lapply(X = S, FUN = FUN, ...)
  16:     call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG) 
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
              prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: 
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w)) 
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }            w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  }, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, 
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
          skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, 28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {    error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30:     eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")}, snapshot_on_cran = function(cnd) {    }    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37:     else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35:     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")
      NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Saving _problems/test-flex_co-29.R
  Saving _problems/test-flex_co-39.R
  Saving _problems/test-flex_co-52.R
  Saving _problems/test-flex_co-75.R
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], 
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6:                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
  
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21:  8: doTryCatch(return(expr), name, parentenv, handler)
  sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24:  9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)10: tryCatchList(expr, classes, parentenv, handlers)
  }, mc.cores = cores)
  25: 11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)    std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: 32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35:         if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22:         skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  
  36: test_code(code, parent.frame())
  37: test_that("Is the result fco of gen_fit a list of length rep?",     {27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)        expect_type(out$fco, "list")        expect_equal(length(out$fco), 10)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40:         skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUEwithCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: }, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43:         skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34:     else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    })
  36: test_code(code, parent.frame())
  37: test_that("Is the result fco of gen_fit a list of length rep?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)        expect_type(out$fco, "list")    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,         expect_equal(length(out$fco), 10)    })
  38: eval(code, test_env)
      error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: 
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56:         skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
      if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure, 
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2:     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])    WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean, 
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5:         if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],     if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
                  type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16:         .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21:     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
      call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: 30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")        skip("On CRAN")    }    }    else if (!new_expectations && skip_on_empty) {    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,         skip_empty()    error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37:     }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {test_that("Is mod1 a model?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    expect_s3_class(lavaanify(out$mod1), "data.frame")    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {})
  38:         skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {    }        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
      error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {37: test_that("Is mod1 a model?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    expect_s3_class(lavaanify(out$mod1), "data.frame")})
          skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: 38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51:         skip_empty()lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  An irrecoverable exception occurred. R is aborting now ...
  
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is x a data.frame?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    expect_s3_class(out$x, "data.frame")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is x a data.frame?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    expect_s3_class(out$x, "data.frame")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names, 
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5:     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")    call <- conditionCall(e)        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")
      }    else prefix <- "Error : "14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
      msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16:         prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
      if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w)) 23: lapply(seq_len(cores), inner.do)
  24:             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: 
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
      }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])26: eval(code, test_env)
  27: eval(code, test_env)
  
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)    if (on_cran()) {
          skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is standard type NM?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)    expect_equal(out$type, "NM")})
  38: eval(code, test_env)
  39: 
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectationseval(code, test_env)
  40: withCallingHandlers({    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {    eval(code, test_env)        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is standard type NM?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    expect_equal(out$type, "NM")})
  38:     new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }    snapshot_skipped <<- TRUE}, snapshot_on_cran = function(cnd) {    invokeRestart("muffle_cran_snapshot")    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: }, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46:     eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
      }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: 50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
      test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "HB")
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is type HB taken over?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "HB")    expect_equal(out$type, "HB")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }    unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, }, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)    NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: 
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
          sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54:     msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package, FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17:     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)test_files(test_dir = path, test_paths = test_paths, test_package = package, 
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {    reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,         if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))    ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  })
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "HB")
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is type HB taken over?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "HB")    expect_equal(out$type, "HB")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM")
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is type EM taken over?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM")    expect_equal(out$type, "EM")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM")
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is type EM taken over?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM")    expect_equal(out$type, "EM")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the result fco of gen_fit a list of matrices with two rows?",     {        out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)        expect_type(out$fco, "list")        expect_equal(nrow(do.call("rbind", out$fco)), 20)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the result fco of gen_fit a list of matrices with two rows?",     {        out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)        expect_type(out$fco, "list")        expect_equal(nrow(do.call("rbind", out$fco)), 20)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Saving _problems/test-gen_fit-99.R
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: 
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17:     if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], 
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]                type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
          w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
      generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: 28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36:     eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {test_code(code, parent.frame())
  37: test_that("Is a second model accepted?", {    out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)    expect_s3_class(lavaanify(out$mod2), "data.frame")})        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: }, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {
  37: test_that("Is a second model accepted?", {    out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)    expect_s3_class(lavaanify(out$mod2), "data.frame")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
      }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: }, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env, 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
      stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  54: An irrecoverable exception occurred. R is aborting now ...
  tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is type EM used when DV is TRUE?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)    expect_equal(out$type, "EM")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is type EM used when DV is TRUE?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)    expect_equal(out$type, "EM")})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names, 
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)    ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: 
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
  
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11:  5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
  tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],  8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)                type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L    invisible(structure(msg, class = "try-error", condition = e))})
          sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w)) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14:             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  
  18: tryCatchList(expr, classes, parentenv, handlers)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: 19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
      }    invisible(structure(msg, class = "try-error", condition = e))})
  20: 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)
  26: 22: FUN(X[[i]], ...)
  23: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)
      new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
      error = handle_error, interrupt = handle_interrupt)
  29: 29: doTryCatch(return(expr), name, parentenv, handler)
  doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32:     }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: }, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)test_code(code, parent.frame())
  37: test_that("Is constraining used when DV is TRUE?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)    expect_equal(out$merge.mod, FALSE)})
  
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {}, snapshot_on_cran = function(cnd) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  36: test_code(code, parent.frame())
  
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])37: test_that("Is constraining used when DV is TRUE?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)    expect_equal(out$merge.mod, FALSE)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }40: withCallingHandlers({    eval(code, test_env)    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")41: doTryCatch(return(expr), name, parentenv, handler)
      }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48:         skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
          skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: 
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,         skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48:     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: 59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  An irrecoverable exception occurred. R is aborting now ...
  
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is dv.cutoff set to .9 when DV is TRUE?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)    expect_equal(out$dv.cutoff, 0.9)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48:     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52:         LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  })
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter, 15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
      ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is dv.cutoff set to .9 when DV is TRUE?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE)    expect_equal(out$dv.cutoff, 0.9)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Merging is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the first and second factor merged when DV is TRUE, merge.mod is TRUE and dv.factors is missing?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE,             merge.mod = TRUE)        expect_equal(grepl("F2 =~ ", out$mod2), FALSE)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the first and second factor merged when DV is TRUE, merge.mod is TRUE and dv.factors is missing?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE,             merge.mod = TRUE)        expect_equal(grepl("F2 =~ ", out$mod2), FALSE)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Merging is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch))) 
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: 
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: 
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w)) parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE,     dv.factors = c("F2", "F3"))
  26: eval(code, test_env)
              w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
      }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: 14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
          w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: 33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE,     dv.factors = c("F2", "F3"))
  26: eval(code, test_env)
  27:     }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is merging used when DV is TRUE, merge.mod is TRUE and dv.factors is provided?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE,             merge.mod = TRUE, dv.factors = c("F2", "F3"))        expect_equal(out$merge.mod, TRUE)    })
  eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  }, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
      }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: 37: test_that("Is merging used when DV is TRUE, merge.mod is TRUE and dv.factors is provided?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE,             merge.mod = TRUE, dv.factors = c("F2", "F3"))        expect_equal(out$merge.mod, TRUE)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }    snapshot_skipped <<- TRUE}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
          skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: 59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: 
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
      lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.cutoff = 0.85)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: 
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectationsFUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
      if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22:     }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: 
  37: test_that("Is dv.cutoff set to .85 taken over?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE,         dv.cutoff = 0.85)    expect_equal(grepl("F2~~0.85*F1", out$mod2), FALSE)})
  38: eval(code, test_env)
  39: eval(code, test_env)gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.cutoff = 0.85)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  }, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is dv.cutoff set to .85 taken over?", {    out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE,         dv.cutoff = 0.85)    expect_equal(grepl("F2~~0.85*F1", out$mod2), FALSE)})
  38: eval(code, test_env)
  39: eval(code, test_env)    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51:     }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: 
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  }, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }An irrecoverable exception occurred. R is aborting now ...
  }, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)
  26: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  27: withCallingHandlers(expr, condition = function(cnd) {    if (!is.null(matched) || !matches(cnd)) {        return()    }    if (can_entrace(cnd)) {        cnd <- cnd_entrace(cnd)    }    matched <<- cnd    if (inherits(cnd, "message") || inherits(cnd, "warning")) {        cnd_muffle(cnd)    }    else if (inherits(cnd, "error") || inherits(cnd, "skip")) {        return_from(tl, cnd)    }})
  28: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)),     ...)
  29: quasi_capture(enquo(object), label, capture_matching_condition,     matches = matcher)
  30: expect_condition_matching_("warning", {    {        object    }}, regexp = regexp, class = class, ..., inherit = inherit, info = info,     label = label)
  31: expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE))
  32: eval(code, test_env)
  33: eval(code, test_env)
  34: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  35: doTryCatch(return(expr), name, parentenv, handler)
  36: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  37: tryCatchList(expr, classes, parentenv, handlers)
  38: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  39: doWithOneRestart(return(expr), restart)
  40: withOneRestart(expr, restarts[[1L]])
  41: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  42: test_code(code, parent.frame())
  43: test_that("Is a warning produced when standardized is switched off?",     {        expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10,             standardized = FALSE))    })
  44: eval(code, test_env)
  45: eval(code, test_env)
  46: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  47: doTryCatch(return(expr), name, parentenv, handler)
  48: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  49: tryCatchList(expr, classes, parentenv, handlers)
  50: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  51: doWithOneRestart(return(expr), restart)
  52: withOneRestart(expr, restarts[[1L]])
  53: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  54: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  55: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  56: FUN(X[[i]], ...)
  57: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  58: doTryCatch(return(expr), name, parentenv, handler)
  59: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  60: tryCatchList(expr, classes, parentenv, handlers)
  61: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  62: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  63: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  64: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  65: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure, 
  66: test_check("FCO")    slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
  An irrecoverable exception occurred. R is aborting now ...
  
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)
  26: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  27: withCallingHandlers(expr, condition = function(cnd) {    if (!is.null(matched) || !matches(cnd)) {        return()    }    if (can_entrace(cnd)) {        cnd <- cnd_entrace(cnd)    }    matched <<- cnd    if (inherits(cnd, "message") || inherits(cnd, "warning")) {        cnd_muffle(cnd)    }    else if (inherits(cnd, "error") || inherits(cnd, "skip")) {        return_from(tl, cnd)    }})
  28: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)),     ...)
  29: quasi_capture(enquo(object), label, capture_matching_condition,     matches = matcher)
  30: expect_condition_matching_("warning", {    {        object    }}, regexp = regexp, class = class, ..., inherit = inherit, info = info,     label = label)
  31: expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE))
  32: eval(code, test_env)
  33: eval(code, test_env)
  34: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  35: doTryCatch(return(expr), name, parentenv, handler)
  36: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  37: tryCatchList(expr, classes, parentenv, handlers)
  38: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  39: doWithOneRestart(return(expr), restart)
  40: withOneRestart(expr, restarts[[1L]])
  41: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  42: test_code(code, parent.frame())
  43: test_that("Is a warning produced when standardized is switched off?",     {        expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10,             standardized = FALSE))    })
  44: eval(code, test_env)
  45: eval(code, test_env)
  46: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  47: doTryCatch(return(expr), name, parentenv, handler)
  48: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  49: tryCatchList(expr, classes, parentenv, handlers)
  50: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  51: doWithOneRestart(return(expr), restart)
  52: withOneRestart(expr, restarts[[1L]])
  53: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  54: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  55: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  56: FUN(X[[i]], ...)
  57: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  58: doTryCatch(return(expr), name, parentenv, handler)
  59: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  60: tryCatchList(expr, classes, parentenv, handlers)
  61: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  62: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  63: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  64: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  65: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  66: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is kurtosis and skewness unequal to 1 when assume.mvn is FALSE?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)        expect_gt(FCO:::mardia(out$x)[1], 1)        expect_gt(FCO:::mardia(out$x)[1], 1)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is kurtosis and skewness unequal to 1 when assume.mvn is FALSE?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)        expect_gt(FCO:::mardia(out$x)[1], 1)        expect_gt(FCO:::mardia(out$x)[1], 1)    })
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w)) 
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
      unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13:     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: 
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
  tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) { 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
          if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],         cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20:                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)    call <- conditionCall(e)    if (!is.null(call)) {
  26:         if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  }, skip = handle_skip, warning = handle_warning, message = handle_message, 21:     error = handle_error, interrupt = handle_interrupt)
  29: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)    error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37:     else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {test_that("Is the seed set properly?", {    out1 <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    out2 <- gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)    expect_equal(out1$seed, out2$seed)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
      eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: 37: test_that("Is the seed set properly?", {    out1 <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    out2 <- gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)    expect_equal(out1$seed, out2$seed)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45:         skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51:     else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env, }, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())    stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, 
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)    ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
  
   7:  9: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10:     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch))) tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)            call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        cat(msg, file = outFile)        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],         .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
                  type = "b")12:         if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13:     free1 = free, s = s, k = k, nf = nf)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  FUN(X[[i]], ...)
  15: 18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch))) lapply(X = S, FUN = FUN, ...)
              call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)16: doTryCatch(return(expr), name, parentenv, handler)
          prefix <- paste("Error in", dcall, ": ")17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],     msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())                type = "b")        if (w > LONG)     }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)            prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)
  26: eval(code, test_env)
  27:     if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))eval(code, test_env)})
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {
          skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the seed set properly?", {    out1 <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    out2 <- gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)    expect_equal(out1$seed, out2$seed)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    else if (!new_expectations && skip_on_empty) {    if (snapshot_skipped) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {        skip("On CRAN")    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {    }        skip(paste0("{", e$package, "} is not installed."))    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])    if (on_cran()) {
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59:         skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code, parent.frame())
  37: test_that("Is the seed set properly?", {    out1 <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    out2 <- gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)    expect_equal(out1$seed, out2$seed)})
  38: eval(code, test_env)
  39: eval(code, test_env)
  40: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  48: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  49: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  50: FUN(X[[i]], ...)
  51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, classes, parentenv, handlers)
  55: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  56: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  57: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  58: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  59: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  60: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: 
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
      std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, 11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
      }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15:     if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w)) 
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {            w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23:     else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  }, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package, 
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47:     eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Saving _problems/test-recommend-34.R
  Saving _problems/test-recommend-56.R
  Saving _problems/test-recommend-69.R
  Saving _problems/test-recommend-94.R
  Saving _problems/test-recommend-112.R
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2:     call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
          free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: 10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)doWithOneRestart(return(expr), restart)
  34: 
  14: FUN(X[[i]], ...)
  15: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17:     new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19:     if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUEtryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%         LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")    StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40:     .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: })
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
      env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package, 23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  26: eval(code, test_env)
  27: eval(code, test_env)    test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: 
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
      }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",     "F5"), dv.cutoff = 0.9)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",     "F5"), dv.cutoff = 0.9)
  26: eval(code, test_env)
  27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Merging is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")
  Traceback:
   1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx,     fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure,     slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one,     unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE)
   2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions,     WLS.V = WLS.V, NACOV = NACOV)
   3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats,     lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V,     NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean,     sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names,     ov.names.x = ov.names.x, lavpartable = lavpartable)        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))
   4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa")
   5: eval(sc, parent.frame())
   6: eval(sc, parent.frame())
   7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
      if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})11: tryCatch(expr, error = function(e) {
  12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: FUN(X[[i]], ...)
      }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  15: lapply(X = S, FUN = FUN, ...)12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  14: 
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {FUN(X[[i]], ...)
  15: lapply(X = S, FUN = FUN, ...)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
          cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",     "F5"), merge.mod = TRUE)
  26: eval(code, test_env)
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
      if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }22: FUN(X[[i]], ...)
  23: lapply(seq_len(cores), inner.do)
  24: parallel::mclapply(1:rep, function(r) {}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
          skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",     "F5"), merge.mod = TRUE)}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE
  26: eval(code, test_env)
      invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, 27: eval(code, test_env)
  28: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {    error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {        skip("On CRAN")    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
      invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package, }, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  33: doWithOneRestart(return(expr), restart)
  34: withOneRestart(expr, restarts[[1L]])
  35: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
      snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  36: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  37: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  38: FUN(X[[i]], ...)
  39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, classes, parentenv, handlers)
  43: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  44: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  45: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  46: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  47: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  48: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Saving _problems/test-recommend_dv-43.R
  Saving _problems/test-recommend_dv-51.R
  Saving _problems/test-recommend_dv-59.R
  Saving _problems/test-recommend_dv-68.R
  [ FAIL 14 | WARN 25 | SKIP 0 | PASS 55 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-flex_co.R:24:13'): Is the function warning because of low replications? ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─testthat::expect_warning(...) at test-flex_co.R:24:13
   2. │ └─testthat:::expect_condition_matching_(...)
   3. │   └─testthat:::quasi_capture(...)
   4. │     ├─testthat (local) .capture(...)
   5. │     │ └─base::withCallingHandlers(...)
   6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   7. └─FCO::flex_co(...)
   8.   └─index %in% names(fits.nna[[1]])
  ── Error ('test-flex_co.R:34:13'): Is the function accepting multiple indices? ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-flex_co.R:34:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::flex_co(...)
   4.   └─index %in% names(fits.nna[[1]])
  ── Error ('test-flex_co.R:47:13'): Is the function reversing quantile definition based on gof? ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-flex_co.R:47:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::flex_co(...)
   4.   └─index %in% names(fits.nna[[1]])
  ── Error ('test-flex_co.R:70:13'): Is the function returning values for two models? ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-flex_co.R:70:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::flex_co(...)
   4.   └─index %in% names(fits.nna[[1]])
  ── Failure ('test-gen_fit.R:99:13'): Is the result fco of gen_fit a list of matrices with two rows? ──
  Expected `nrow(do.call("rbind", out$fco))` to equal 20.
  Differences:
  `actual` is NULL
  `expected` is a double vector (20)
  
  ── Error ('test-recommend.R:29:13'): Are the settings for purpose and focus following the recommendations by Mai et al.? #1 ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:29:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend.R:51:13'): Are the settings for purpose and focus following the recommendations by Mai et al.? #3 ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:51:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend.R:62:13'): Are the settings for purpose and focus following the recommendations by Mai et al.? #4 ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:62:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend.R:86:13'): Is the result rounded properly? ───────────
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:86:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend.R:104:13'): Are the indices properly used when override is TRUE? ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:104:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend_dv.R:40:13'): Are multiple fit indices supported? ────
  Error in `recommend_dv(fits = fits.dv.merge, index = c("CFI", "SRMR", "GFI"))`: Only dual model fit indices are supported so far for this function. Please revise or use flex_co.
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend_dv.R:40:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend_dv(...)
  ── Error ('test-recommend_dv.R:49:13'): Is the proper dv technique used? merging? ──
  Error in `recommend_dv(fits = fits.dv.merge, )`: Only dual model fit indices are supported so far for this function. Please revise or use flex_co.
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(recommend_dv(fits = fits.dv.merge, )) at test-recommend_dv.R:49:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend_dv(fits = fits.dv.merge, )
  ── Error ('test-recommend_dv.R:57:13'): Is the proper dv technique used? constraining? ──
  Error in `recommend_dv(fits = fits.dv.con, )`: Only dual model fit indices are supported so far for this function. Please revise or use flex_co.
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(recommend_dv(fits = fits.dv.con, )) at test-recommend_dv.R:57:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend_dv(fits = fits.dv.con, )
  ── Error ('test-recommend_dv.R:65:13'): Is the result rounded properly? ────────
  Error in `recommend_dv(fits = fits.dv.con, digits = 5)`: Only dual model fit indices are supported so far for this function. Please revise or use flex_co.
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(recommend_dv(fits = fits.dv.con, digits = 5)) at test-recommend_dv.R:65:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend_dv(fits = fits.dv.con, digits = 5)
  
  [ FAIL 14 | WARN 25 | SKIP 0 | PASS 55 ]
  Error:
  ! Test failures.
  Execution halted

            

            

              

                OK
                r-release-macos-x86_64
              

              
*

              

            

            

              

                OK
                r-release-windows-x86_64
              

              
*

              

            

          

        

      



      

      
      

        
Check History

        

          

            
              ERROR
              
                12 OK ·                 0 NOTE ·                 0 WARNING ·                 2 ERROR ·                 0 FAILURE              
              Mar 9, 2026
            
            

              

                

                  ERROR
                  r-devel-macos-arm64
                

                
examples

                
Running examples in ‘FCO-Ex.R’ failed
The error most likely occurred in:

> ### Name: flex_co
> ### Title: Obtain flexible cutoffs for one or two models
> ### Aliases: flex_co
> 
> ### ** Examples
> 
> #Note: Demonstration only! Please use higher numbers of replications for your applications (>= 500).
> #A single model to obtain fit indices for
> mod <- "
+ F1 =~ Q5 + Q7 + Q8
+ F2 =~ Q2 + Q4
+ F3 =~ Q10 + Q11 + Q12 + Q13 + Q18 + Q19 + Q20 + Q21 + Q22
+ F4 =~ Q1 + Q17
+ F5 =~ Q6 + Q14 + Q15 + Q16

              

              

                

                  ERROR
                  r-release-macos-arm64
                

                
examples

                
Running examples in ‘FCO-Ex.R’ failed
The error most likely occurred in:

> ### Name: flex_co
> ### Title: Obtain flexible cutoffs for one or two models
> ### Aliases: flex_co
> 
> ### ** Examples
> 
> #Note: Demonstration only! Please use higher numbers of replications for your applications (>= 500).
> #A single model to obtain fit indices for
> mod <- "
+ F1 =~ Q5 + Q7 + Q8
+ F2 =~ Q2 + Q4
+ F3 =~ Q10 + Q11 + Q12 + Q13 + Q18 + Q19 + Q20 + Q21 + Q22
+ F4 =~ Q1 + Q17
+ F5 =~ Q6 + Q14 + Q15 + Q16

              

            

          

        

      


      

      
      

        
Dependency Network

        

          
            

            
            
            Dependencies
            
            Reverse dependencies

            
            
            
            
            
            
            
            
            
            
            
            
            
            
            
            

            

            
            
              
              checkmate
            
            
              
              cutpointr
            
            
              
              data.table
            
            
              
              doParallel
            
            
              
              dplyr
            
            
              
              foreach
            
            
              
              ggplot2
            
            
              
              lavaan
            
            
              
              overlapping
            
            
              
              PoisBinOrdNor
            
            
              
              psych
            
            
              
              rcompanion
            
            
              
              simstandard
            
            
              
              stringr
            
            
              
              tidyr
            

            

            
            
            FCO
          
        

      


      
      

        
Version History

        

          

            new
            2.0.2
            Mar 10, 2026