• using R version 4.5.2 Patched (2026-01-31 r89382)
• using platform: aarch64-apple-darwin20
• R was compiled by     Apple clang version 16.0.0 (clang-1600.0.26.6)     GNU Fortran (GCC) 14.2.0
• running under: macOS Ventura 13.7.8
• using session charset: UTF-8
• checking for file ‘FCO/DESCRIPTION’ ... OK
• this is package ‘FCO’ version ‘2.0.2’
• package encoding: UTF-8
• checking package namespace information ... OK
• checking package dependencies ... OK
• checking if this is a source package ... OK
• checking if there is a namespace ... OK
• checking for executable files ... OK
• checking for hidden files and directories ... OK
• checking for portable file names ... OK
• checking for sufficient/correct file permissions ... OK
• checking whether package ‘FCO’ can be installed ... [2s/2s] OK See the install log for details.
• checking installed package size ... OK
• checking package directory ... OK
• checking ‘build’ directory ... OK
• checking DESCRIPTION meta-information ... OK
• checking top-level files ... OK
• checking for left-over files ... OK
• checking index information ... OK
• checking package subdirectories ... OK
• checking code files for non-ASCII characters ... OK
• checking R files for syntax errors ... OK
• checking whether the package can be loaded ... [0s/0s] OK
• checking whether the package can be loaded with stated dependencies ... [0s/0s] OK
• checking whether the package can be unloaded cleanly ... [0s/0s] OK
• checking whether the namespace can be loaded with stated dependencies ... [0s/0s] OK
• checking whether the namespace can be unloaded cleanly ... [0s/0s] OK
• checking loading without being on the library search path ... [0s/0s] OK
• checking dependencies in R code ... OK
• checking S3 generic/method consistency ... OK
• checking replacement functions ... OK
• checking foreign function calls ... OK
• checking R code for possible problems ... [2s/2s] OK
• checking Rd files ... [0s/0s] OK
• checking Rd metadata ... OK
• checking Rd cross-references ... OK
• checking for missing documentation entries ... OK
• checking for code/documentation mismatches ... OK
• checking Rd \usage sections ... OK
• checking Rd contents ... OK
• checking for unstated dependencies in examples ... OK
• checking contents of ‘data’ directory ... OK
• checking data for non-ASCII characters ... [0s/0s] OK
• checking LazyData ... OK
• checking data for ASCII and uncompressed saves ... OK
• checking installed files from ‘inst/doc’ ... OK
• checking files in ‘vignettes’ ... OK
• checking examples ... [6s/4s] OK
• checking for unstated dependencies in ‘tests’ ... OK
• checking tests ... [51s/29s] ERROR   Running ‘testthat.R’ [51s/28s] Running the tests in ‘tests/testthat.R’ failed. Complete output:   > library(testthat)   > library(FCO)   >   > test_check("FCO")   This is lavaan 0.7-3   lavaan is FREE software! Please report any bugs.   Constraining is selected as the discriminant validity testing option given the provided arguments.   Constraining is selected as the discriminant validity testing option given the provided arguments.   Constraining is selected as the discriminant validity testing option given the provided arguments.   Merging is selected as the discriminant validity testing option given the provided arguments.   Merging is selected as the discriminant validity testing option given the provided arguments.   Constraining is selected as the discriminant validity testing option given the provided arguments.       *** caught segfault ***   address 0x110, cause 'invalid permissions'      Traceback:    1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)    2: lav_samp_gamma(m_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 = gamma_recipe$n.minus.one, unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], sampling_weights_type = swt_type)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)    4: lav_step05_samp(slot_sample_stats = slot_sample_stats, 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)    5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    6: eval(sc, parent.frame())    7: eval(sc, parent.frame())    8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)    9: doTryCatch(return(expr), name, parentenv, handler)   10: tryCatchOne(expr, names, parentenv, handlers[[1L]])   11: tryCatchList(expr, classes, parentenv, handlers)   12: 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))})   13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE)   14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf)   15: FUN(X[[i]], ...)   16: lapply(X = S, FUN = FUN, ...)   17: doTryCatch(return(expr), name, parentenv, handler)   18: tryCatchOne(expr, names, parentenv, handlers[[1L]])   19: tryCatchList(expr, classes, parentenv, handlers)   20: 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))})   21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)   22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))   23: FUN(X[[i]], ...)   24: lapply(seq_len(cores), inner.do)   25: 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)   26: gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)   27: eval(code, test_env)   28: eval(code, test_env)   29: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   30: doTryCatch(return(expr), name, parentenv, handler)   31: tryCatchOne(expr, names, parentenv, handlers[[1L]])   32: tryCatchList(expr, classes, parentenv, handlers)   33: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   34: doWithOneRestart(return(expr), restart)   35: withOneRestart(expr, restarts[[1L]])   36: 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() { })   37: test_code(code, parent.frame())   38: 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)    *** caught segfault ***           expect_gt(FCO:::mardia(out$x)[1], 1) expect_gt(FCO:::mardia(out$x)[1], 1)address 0x110, cause 'invalid permissions'       })   39: eval(code, test_env)   40: eval(code, test_env)   41: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   42: doTryCatch(return(expr), name, parentenv, handler)   43: tryCatchOne(expr, names, parentenv, handlers[[1L]])   44: tryCatchList(expr, classes, parentenv, handlers)   45: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   46: doWithOneRestart(return(expr), restart)   47: withOneRestart(expr, restarts[[1L]])   48: 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() { })   Traceback:       1: 49: test_code(code = exprs, env = env, reporter = get_reporter() %||% lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n) StopReporter$new())    2:   lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx, 50: fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure, source_file(path, env = env(env), desc = desc, shuffle = shuffle, slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one, error_call = error_call) unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],       sampling_weights_type = swt_type)51:   FUN(X[[i]], ...)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, 52: wls_v = wls_v, nacov = nacov)lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,    4: error_call = error_call)   lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata, 53: lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov, doTryCatch(return(expr), name, parentenv, handler)       sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs, 54: ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)tryCatchOne(expr, names, parentenv, handlers[[1L]])      55: 5: tryCatchList(expr, classes, parentenv, handlers)lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,   56: std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")tryCatch(code, testthat_abort_reporter = function(cnd) {       cat(conditionMessage(cnd), "\n") NULL 6: })   eval(sc, parent.frame())57:   with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 7:   eval(sc, parent.frame())58:   test_files_serial(test_dir = test_dir, test_package = test_package, 8: test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, std.lv = TRUE, warn = FALSE) desc = desc, load_package = load_package, shuffle = shuffle,       error_call = error_call)    9: 59: doTryCatch(return(expr), name, parentenv, handler)   test_files(test_dir = path, test_paths = test_paths, test_package = package, 10: tryCatchOne(expr, names, parentenv, handlers[[1L]]) reporter = reporter, load_helpers = load_helpers, env = env,   11: stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, tryCatchList(expr, classes, parentenv, handlers) load_package = load_package, parallel = parallel, shuffle = shuffle)      60: test_dir("testthat", package = package, reporter = reporter, 12: ..., load_package = "installed")tryCatch(expr, error = function(e) {       call <- conditionCall(e) if (!is.null(call)) {61: if (identical(call[[1L]], quote(doTryCatch))) test_check("FCO")               call <- sys.call(-4L)An irrecoverable exception occurred. R is aborting now ...           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))})   13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE)   14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf)   15: FUN(X[[i]], ...)   16: lapply(X = S, FUN = FUN, ...)   17: doTryCatch(return(expr), name, parentenv, handler)   18: tryCatchOne(expr, names, parentenv, handlers[[1L]])   19: tryCatchList(expr, classes, parentenv, handlers)   20: 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))})   21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)   22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))   23: FUN(X[[i]], ...)   24: lapply(seq_len(cores), inner.do)   25: 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)   26: gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)   27: eval(code, test_env)   28: eval(code, test_env)   29: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   30: doTryCatch(return(expr), name, parentenv, handler)   31: tryCatchOne(expr, names, parentenv, handlers[[1L]])   32: tryCatchList(expr, classes, parentenv, handlers)   33: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   34: doWithOneRestart(return(expr), restart)   35: withOneRestart(expr, restarts[[1L]])   36: 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() { })   37: test_code(code, parent.frame())   38: 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) })   39: eval(code, test_env)   40: eval(code, test_env)   41: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   42: doTryCatch(return(expr), name, parentenv, handler)   43: tryCatchOne(expr, names, parentenv, handlers[[1L]])   44: tryCatchList(expr, classes, parentenv, handlers)   45: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   46: doWithOneRestart(return(expr), restart)   47: withOneRestart(expr, restarts[[1L]])   48: 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() { })   49: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())   50: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)   51: FUN(X[[i]], ...)   52: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)   53: doTryCatch(return(expr), name, parentenv, handler)   54: tryCatchOne(expr, names, parentenv, handlers[[1L]])   55: tryCatchList(expr, classes, parentenv, handlers)   56: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   57: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))   58: 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)   59: 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)   60: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   61: test_check("FCO")   An irrecoverable exception occurred. R is aborting now ...       *** caught segfault ***   address 0x110, cause 'invalid permissions'      Traceback:    1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)    2: lav_samp_gamma(m_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 = gamma_recipe$n.minus.one, unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], sampling_weights_type = swt_type)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)    4: lav_step05_samp(slot_sample_stats = slot_sample_stats, 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)    5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    6: eval(sc, parent.frame())    7: eval(sc, parent.frame())    8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)    9: doTryCatch(return(expr), name, parentenv, handler)   10: tryCatchOne(expr, names, parentenv, handlers[[1L]])   11: tryCatchList(expr, classes, parentenv, handlers)   12: 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))})   13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE)   14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf)   15: FUN(X[[i]], ...)   16: lapply(X = S, FUN = FUN, ...)   17: doTryCatch(return(expr), name, parentenv, handler)   18: tryCatchOne(expr, names, parentenv, handlers[[1L]])   19: tryCatchList(expr, classes, parentenv, handlers)   20: 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))})   21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)   22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))   23: FUN(X[[i]], ...)   24: lapply(seq_len(cores), inner.do)   25: 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)   26: gen_fit(mod1 = mod, x = bb1992, rep = 10)   27: eval(code, test_env)   28: eval(code, test_env)   29: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   30: doTryCatch(return(expr), name, parentenv, handler)   31: tryCatchOne(expr, names, parentenv, handlers[[1L]])   32: tryCatchList(expr, classes, parentenv, handlers)   33: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   34: doWithOneRestart(return(expr), restart)   35: withOneRestart(expr, restarts[[1L]])   36: 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() { })   37: test_code(code, parent.frame())   38: 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)})   39: eval(code, test_env)   40: eval(code, test_env)   41: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   42: doTryCatch(return(expr), name, parentenv, handler)   43: tryCatchOne(expr, names, parentenv, handlers[[1L]])   44: tryCatchList(expr, classes, parentenv, handlers)   45: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   46: doWithOneRestart(return(expr), restart)   47: withOneRestart(expr, restarts[[1L]])   48: 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() { })   49: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())   50: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)   51: FUN(X[[i]], ...)   52: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)   53: doTryCatch(return(expr), name, parentenv, handler)   54: tryCatchOne(expr, names, parentenv, handlers[[1L]])   55: tryCatchList(expr, classes, parentenv, handlers)   56: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   57: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))   58: 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)   59: 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)   60: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   61: test_check("FCO")   An irrecoverable exception occurred. R is aborting now ...       *** caught segfault ***   address 0x110, cause 'invalid permissions'      Traceback:    1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)    2: lav_samp_gamma(m_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 = gamma_recipe$n.minus.one, unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], sampling_weights_type = swt_type)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)    4: lav_step05_samp(slot_sample_stats = slot_sample_stats, 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)    5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    6: eval(sc, parent.frame())    7: eval(sc, parent.frame())    8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)    9: doTryCatch(return(expr), name, parentenv, handler)   10: tryCatchOne(expr, names, parentenv, handlers[[1L]])   11: tryCatchList(expr, classes, parentenv, handlers)   12: 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))})   13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE)   14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf)   15: FUN(X[[i]], ...)   16: lapply(X = S, FUN = FUN, ...)   17: doTryCatch(return(expr), name, parentenv, handler)   18: tryCatchOne(expr, names, parentenv, handlers[[1L]])   19: tryCatchList(expr, classes, parentenv, handlers)   20: 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))})   21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)   22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))   23: FUN(X[[i]], ...)   24: lapply(seq_len(cores), inner.do)   25: 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)   26: gen_fit(mod1 = mod, x = bb1992, rep = 10)   27: eval(code, test_env)   28: eval(code, test_env)   29: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   30: doTryCatch(return(expr), name, parentenv, handler)   31: tryCatchOne(expr, names, parentenv, handlers[[1L]])   32: tryCatchList(expr, classes, parentenv, handlers)   33: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   34: doWithOneRestart(return(expr), restart)   35: withOneRestart(expr, restarts[[1L]])   36: 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() { })   37: test_code(code, parent.frame())   38: 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)})   39: eval(code, test_env)   40: eval(code, test_env)   41: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   42: doTryCatch(return(expr), name, parentenv, handler)   43: tryCatchOne(expr, names, parentenv, handlers[[1L]])   44: tryCatchList(expr, classes, parentenv, handlers)   45: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   46: doWithOneRestart(return(expr), restart)   47: withOneRestart(expr, restarts[[1L]])   48: 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() { })   49: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())   50: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)   51: FUN(X[[i]], ...)   52: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)   53: doTryCatch(return(expr), name, parentenv, handler)   54: tryCatchOne(expr, names, parentenv, handlers[[1L]])   55: tryCatchList(expr, classes, parentenv, handlers)   56: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   57: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))   58: 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)   59: 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)   60: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   61: test_check("FCO")   An irrecoverable exception occurred. R is aborting now ...       *** caught segfault ***   address 0x110, cause 'invalid permissions'      Traceback:    1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)    2: lav_samp_gamma(m_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 = gamma_recipe$n.minus.one, unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], sampling_weights_type = swt_type)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)    4: lav_step05_samp(slot_sample_stats = slot_sample_stats, 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)    5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    6: eval(sc, parent.frame())    7: eval(sc, parent.frame())    8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)    9: doTryCatch(return(expr), name, parentenv, handler)   10: tryCatchOne(expr, names, parentenv, handlers[[1L]])   11: tryCatchList(expr, classes, parentenv, handlers)   12: 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))})   13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE)   14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf)   15: FUN(X[[i]], ...)   16: lapply(X = S, FUN = FUN, ...)   17: doTryCatch(return(expr), name, parentenv, handler)   18: tryCatchOne(expr, names, parentenv, handlers[[1L]])   19: tryCatchList(expr, classes, parentenv, handlers)   20: 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))})   21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)   22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))   23: FUN(X[[i]], ...)   24: lapply(seq_len(cores), inner.do)   25: 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)   26: gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)   27: eval(code, test_env)   28: eval(code, test_env)   29: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   30: doTryCatch(return(expr), name, parentenv, handler)   31: tryCatchOne(expr, names, parentenv, handlers[[1L]])   32: tryCatchList(expr, classes, parentenv, handlers)   33: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   34: doWithOneRestart(return(expr), restart)   35: withOneRestart(expr, restarts[[1L]])   36: 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() { })   37: test_code(code, parent.frame())   38: 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)})   39: eval(code, test_env)   40: eval(code, test_env)   41: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   42: doTryCatch(return(expr), name, parentenv, handler)   43: tryCatchOne(expr, names, parentenv, handlers[[1L]])   44: tryCatchList(expr, classes, parentenv, handlers)   45: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   46: doWithOneRestart(return(expr), restart)   47: withOneRestart(expr, restarts[[1L]])   48: 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() { })   49: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())   50: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)   51: FUN(X[[i]], ...)   52: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)   53: doTryCatch(return(expr), name, parentenv, handler)   54: tryCatchOne(expr, names, parentenv, handlers[[1L]])   55: tryCatchList(expr, classes, parentenv, handlers)   56: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   57: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))   58: 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)   59: 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)   60: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   61: test_check("FCO")   An irrecoverable exception occurred. R is aborting now ...       *** caught segfault ***   address 0x110, cause 'invalid permissions'      Traceback:    1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)    2: lav_samp_gamma(m_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 = gamma_recipe$n.minus.one, unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], sampling_weights_type = swt_type)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)    4: lav_step05_samp(slot_sample_stats = slot_sample_stats, 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)    5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    6: eval(sc, parent.frame())    7: eval(sc, parent.frame())    8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)    9: doTryCatch(return(expr), name, parentenv, handler)   10: tryCatchOne(expr, names, parentenv, handlers[[1L]])   11: tryCatchList(expr, classes, parentenv, handlers)   12: 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))})   13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE)   14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf)   15: FUN(X[[i]], ...)   16: lapply(X = S, FUN = FUN, ...)   17: doTryCatch(return(expr), name, parentenv, handler)   18: tryCatchOne(expr, names, parentenv, handlers[[1L]])   19: tryCatchList(expr, classes, parentenv, handlers)   20: 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))})   21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)   22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))   23: FUN(X[[i]], ...)   24: lapply(seq_len(cores), inner.do)   25: 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)   26: gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)   27: eval(code, test_env)   28: eval(code, test_env)   29: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   30: doTryCatch(return(expr), name, parentenv, handler)   31: tryCatchOne(expr, names, parentenv, handlers[[1L]])   32: tryCatchList(expr, classes, parentenv, handlers)   33: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   34: doWithOneRestart(return(expr), restart)   35: withOneRestart(expr, restarts[[1L]])   36: 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() { })   37: test_code(code, parent.frame())   38: 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)})   39: eval(code, test_env)   40: eval(code, test_env)   41: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   42: doTryCatch(return(expr), name, parentenv, handler)   43: tryCatchOne(expr, names, parentenv, handlers[[1L]])   44: tryCatchList(expr, classes, parentenv, handlers)   45: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   46: doWithOneRestart(return(expr), restart)   47: withOneRestart(expr, restarts[[1L]])   48: 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() { })   49: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())   50: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)   51: FUN(X[[i]], ...)   52: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)   53: doTryCatch(return(expr), name, parentenv, handler)   54: tryCatchOne(expr, names, parentenv, handlers[[1L]])   55: tryCatchList(expr, classes, parentenv, handlers)   56: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   57: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))   58: 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)   59: 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)   60: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   61: 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_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)    2: lav_samp_gamma(m_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 = gamma_recipe$n.minus.one, unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], sampling_weights_type = swt_type)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)    4: lav_step05_samp(slot_sample_stats = slot_sample_stats, 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)    5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    6: eval(sc, parent.frame())    7: eval(sc, parent.frame())    8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)    9: doTryCatch(return(expr), name, parentenv, handler)   10: tryCatchOne(expr, names, parentenv, handlers[[1L]])   11: tryCatchList(expr, classes, parentenv, handlers)   12: 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))})   13:   Traceback:   try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, 1: std.lv = TRUE, warn = FALSE), silent = TRUE)   lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)14:   generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, 2: free1 = free, s = s, k = k, nf = nf)lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,       fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure, 15: slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one, FUN(X[[i]], ...) unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],       sampling_weights_type = swt_type)16:   lapply(X = S, FUN = FUN, ...) 3:   lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)17:   doTryCatch(return(expr), name, parentenv, handler) 4:   lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata, 18: lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov, tryCatchOne(expr, names, parentenv, handlers[[1L]]) sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,       ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)19:   tryCatchList(expr, classes, parentenv, handlers) 5:   lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, 20: std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")tryCatch(expr, error = function(e) {       call <- conditionCall(e) 6: if (!is.null(call)) {eval(sc, parent.frame())           if (identical(call[[1L]], quote(doTryCatch))) 7: eval(sc, parent.frame()) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L)           prefix <- paste("Error in", dcall, ": ") 8: LONG <- 75Llavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, sm <- strsplit(conditionMessage(e), "\n")[[1L]] std.lv = TRUE, warn = FALSE) w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")           if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], 9: type = "b")doTryCatch(return(expr), name, parentenv, handler)           if (w > LONG) 10: prefix <- paste0(prefix, "\n ")tryCatchOne(expr, names, parentenv, handlers[[1L]]) }       else prefix <- "Error : "11: msg <- paste0(prefix, conditionMessage(e), "\n")tryCatchList(expr, classes, parentenv, handlers) .Internal(seterrmessage(msg[1L]))       if (!silent && isTRUE(getOption("show.error.messages"))) {12: cat(msg, file = outFile)tryCatch(expr, error = function(e) { .Internal(printDeferredWarnings()) call <- conditionCall(e) } if (!is.null(call)) { invisible(structure(msg, class = "try-error", condition = e)) if (identical(call[[1L]], quote(doTryCatch))) })               call <- sys.call(-4L)21: dcall <- deparse(call, nlines = 1L)try(lapply(X = S, FUN = FUN, ...), silent = TRUE) prefix <- paste("Error in", dcall, ": ") LONG <- 75L           sm <- strsplit(conditionMessage(e), "\n")[[1L]]22: w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) if (is.na(w))               w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], 23: type = "b")FUN(X[[i]], ...)           if (w > LONG) 24: prefix <- paste0(prefix, "\n ")lapply(seq_len(cores), inner.do) }       else prefix <- "Error : "25: msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L]))parallel::mclapply(1:rep, function(r) { if (!silent && isTRUE(getOption("show.error.messages"))) { generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) cat(msg, file = outFile)}, mc.cores = cores) .Internal(printDeferredWarnings())       }26: invisible(structure(msg, class = "try-error", condition = e))gen_fit(mod1 = mod, x = bb1992, rep = 10)})      27: 13: eval(code, test_env)try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,       std.lv = TRUE, warn = FALSE), silent = TRUE)28:   eval(code, test_env)14:   generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, 29: free1 = free, s = s, k = k, nf = nf)withCallingHandlers({       eval(code, test_env)15: FUN(X[[i]], ...) new_expectations <- the$test_expectations > starting_expectations       if (snapshot_skipped) {16: skip("On CRAN") }lapply(X = S, FUN = FUN, ...) else if (!new_expectations && skip_on_empty) {           skip_empty()17: }doTryCatch(return(expr), name, parentenv, handler)   }, expectation = handle_expectation, packageNotFoundError = function(e) {18: if (on_cran()) { skip(paste0("{", e$package, "} is not installed."))tryCatchOne(expr, names, parentenv, handlers[[1L]]) }   }, snapshot_on_cran = function(cnd) {19: snapshot_skipped <<- TRUEtryCatchList(expr, classes, parentenv, handlers) invokeRestart("muffle_cran_snapshot")   }, skip = handle_skip, warning = handle_warning, message = handle_message, 20: error = handle_error, interrupt = handle_interrupt)tryCatch(expr, error = function(e) {   30: call <- conditionCall(e)doTryCatch(return(expr), name, parentenv, handler)       if (!is.null(call)) {31: tryCatchOne(expr, names, parentenv, handlers[[1L]]) if (identical(call[[1L]], quote(doTryCatch)))               call <- sys.call(-4L)32: dcall <- deparse(call, nlines = 1L)tryCatchList(expr, classes, parentenv, handlers)           prefix <- paste("Error in", dcall, ": ")33: LONG <- 75L sm <- strsplit(conditionMessage(e), "\n")[[1L]]tryCatch(withCallingHandlers({ w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") eval(code, test_env) if (is.na(w)) new_expectations <- the$test_expectations > starting_expectations w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], if (snapshot_skipped) { type = "b") skip("On CRAN") } if (w > LONG) else if (!new_expectations && skip_on_empty) { skip_empty() prefix <- paste0(prefix, "\n ") } }}, expectation = handle_expectation, packageNotFoundError = function(e) { else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") if (on_cran()) { .Internal(seterrmessage(msg[1L])) skip(paste0("{", e$package, "} is not installed.")) if (!silent && isTRUE(getOption("show.error.messages"))) { } cat(msg, file = outFile)}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE .Internal(printDeferredWarnings()) invokeRestart("muffle_cran_snapshot") }}, skip = handle_skip, warning = handle_warning, message = handle_message, invisible(structure(msg, class = "try-error", condition = e)) error = handle_error, interrupt = handle_interrupt), error = handle_fatal)})      34: 21: doWithOneRestart(return(expr), restart)try(lapply(X = S, FUN = FUN, ...), silent = TRUE)      22: 35: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))withOneRestart(expr, restarts[[1L]])   23:   FUN(X[[i]], ...)36:   withRestarts(tryCatch(withCallingHandlers({24: eval(code, test_env)lapply(seq_len(cores), inner.do) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) {   25: skip("On CRAN")parallel::mclapply(1:rep, function(r) { } else if (!new_expectations && skip_on_empty) { generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, skip_empty() free1 = free, s = s, k = k, nf = nf) }}, mc.cores = cores)}, expectation = handle_expectation, packageNotFoundError = function(e) {       if (on_cran()) {26: skip(paste0("{", e$package, "} is not installed.")) }gen_fit(mod1 = mod, x = bb1992, rep = 10)   }, snapshot_on_cran = function(cnd) {27: snapshot_skipped <<- TRUEeval(code, test_env) invokeRestart("muffle_cran_snapshot")   }, skip = handle_skip, warning = handle_warning, message = handle_message, 28: error = handle_error, interrupt = handle_interrupt), error = handle_fatal), eval(code, test_env) end_test = function() {   29: })withCallingHandlers({       eval(code, test_env)37: new_expectations <- the$test_expectations > starting_expectationstest_code(code = exprs, env = env, reporter = get_reporter() %||% if (snapshot_skipped) { StopReporter$new()) skip("On CRAN")   38: }source_file(path, env = env(env), desc = desc, shuffle = shuffle, else if (!new_expectations && skip_on_empty) { error_call = error_call) skip_empty()       }39: }, expectation = handle_expectation, packageNotFoundError = function(e) {FUN(X[[i]], ...) if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }   }, snapshot_on_cran = function(cnd) {40: snapshot_skipped <<- TRUElapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, invokeRestart("muffle_cran_snapshot") error_call = error_call)}, skip = handle_skip, warning = handle_warning, message = handle_message,       error = handle_error, interrupt = handle_interrupt)41:   doTryCatch(return(expr), name, parentenv, handler)   30: 42: doTryCatch(return(expr), name, parentenv, handler)tryCatchOne(expr, names, parentenv, handlers[[1L]])      31: 43: tryCatchOne(expr, names, parentenv, handlers[[1L]])tryCatchList(expr, classes, parentenv, handlers)   32:   tryCatchList(expr, classes, parentenv, handlers)44:   tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n")33: NULLtryCatch(withCallingHandlers({}) eval(code, test_env)   45: new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) {with_reporter(reporters$multi, lapply(test_paths, test_one_file, skip("On CRAN") env = env, desc = desc, shuffle = shuffle, error_call = error_call)) }       else if (!new_expectations && skip_on_empty) {46: skip_empty()test_files_serial(test_dir = test_dir, test_package = test_package, } test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, }, expectation = handle_expectation, packageNotFoundError = function(e) { env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, if (on_cran()) { desc = desc, load_package = load_package, shuffle = shuffle, skip(paste0("{", e$package, "} is not installed.")) error_call = error_call) }   }, snapshot_on_cran = function(cnd) {47: snapshot_skipped <<- TRUEtest_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, invokeRestart("muffle_cran_snapshot") load_package = load_package, parallel = parallel, shuffle = shuffle)}, skip = handle_skip, warning = handle_warning, message = handle_message,       error = handle_error, interrupt = handle_interrupt), error = handle_fatal)48:   test_dir("testthat", package = package, reporter = reporter, 34: ..., load_package = "installed")doWithOneRestart(return(expr), restart)      49: test_check("FCO")35: withOneRestart(expr, restarts[[1L]])      An irrecoverable exception occurred. R is aborting now ...   36: 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() { })   37: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())   38: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)   39: FUN(X[[i]], ...)   40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)   41: doTryCatch(return(expr), name, parentenv, handler)   42: tryCatchOne(expr, names, parentenv, handlers[[1L]])   43: tryCatchList(expr, classes, parentenv, handlers)   44: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   45: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))   46: 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)   47: 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)   48: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   49: test_check("FCO")   An irrecoverable exception occurred. R is aborting now ...       *** caught segfault ***   address 0x110, cause 'invalid permissions'      Traceback:    1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)    2: lav_samp_gamma(m_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 = gamma_recipe$n.minus.one, unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], sampling_weights_type = swt_type)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)    4: lav_step05_samp(slot_sample_stats = slot_sample_stats, 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)    5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    6: eval(sc, parent.frame())    7: eval(sc, parent.frame())    8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)    9: doTryCatch(return(expr), name, parentenv, handler)   10: tryCatchOne(expr, names, parentenv, handlers[[1L]])   11: tryCatchList(expr, classes, parentenv, handlers)   12: 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))})   13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE)   14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf)   15: FUN(X[[i]], ...)   16: lapply(X = S, FUN = FUN, ...)   17: doTryCatch(return(expr), name, parentenv, handler)   18: tryCatchOne(expr, names, parentenv, handlers[[1L]])   19: tryCatchList(expr, classes, parentenv, handlers)   20: 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))})   21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)   22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))   23: FUN(X[[i]], ...)   24: lapply(seq_len(cores), inner.do)   25: 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)   26: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)   27: eval(code, test_env)   28: eval(code, test_env)   29: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   30: doTryCatch(return(expr), name, parentenv, handler)   31: tryCatchOne(expr, names, parentenv, handlers[[1L]])   32: tryCatchList(expr, classes, parentenv, handlers)   33: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   34: doWithOneRestart(return(expr), restart)   35: withOneRestart(expr, restarts[[1L]])   36: 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() { })   37: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())   38: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)   39: FUN(X[[i]], ...)   40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)   41: doTryCatch(return(expr), name, parentenv, handler)   42: tryCatchOne(expr, names, parentenv, handlers[[1L]])   43: tryCatchList(expr, classes, parentenv, handlers)   44: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   45: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))   46: 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)   47: 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)   48: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   49: test_check("FCO")   An irrecoverable exception occurred. R is aborting now ...       *** caught segfault ***   address 0x110, cause 'invalid permissions'      Traceback:    1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)    2: lav_samp_gamma(m_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 = gamma_recipe$n.minus.one, unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], sampling_weights_type = swt_type)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)    4: lav_step05_samp(slot_sample_stats = slot_sample_stats, 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)    5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    6: eval(sc, parent.frame())    7: eval(sc, parent.frame())    8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)    9: doTryCatch(return(expr), name, parentenv, handler)   10: tryCatchOne(expr, names, parentenv, handlers[[1L]])   11: tryCatchList(expr, classes, parentenv, handlers)   12: 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))})   13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE)   14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf)   15: FUN(X[[i]], ...)   16: lapply(X = S, FUN = FUN, ...)   17: doTryCatch(return(expr), name, parentenv, handler)   18: tryCatchOne(expr, names, parentenv, handlers[[1L]])   19: tryCatchList(expr, classes, parentenv, handlers)   20: 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))})   21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)   22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))   23: FUN(X[[i]], ...)   24: lapply(seq_len(cores), inner.do)   25: 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)   26: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)   27: eval(code, test_env)   28: eval(code, test_env)   29: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   30: doTryCatch(return(expr), name, parentenv, handler)   31: tryCatchOne(expr, names, parentenv, handlers[[1L]])   32: tryCatchList(expr, classes, parentenv, handlers)   33: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   34: doWithOneRestart(return(expr), restart)   35: withOneRestart(expr, restarts[[1L]])   36: 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() { })   37: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())   38: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)   39: FUN(X[[i]], ...)   40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)   41: doTryCatch(return(expr), name, parentenv, handler)   42: tryCatchOne(expr, names, parentenv, handlers[[1L]])   43: tryCatchList(expr, classes, parentenv, handlers)   44: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   45: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))   46: 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)   47: 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)   48: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   49: 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_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)    2: lav_samp_gamma(m_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 = gamma_recipe$n.minus.one, unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], sampling_weights_type = swt_type)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)    4: lav_step05_samp(slot_sample_stats = slot_sample_stats, 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)    5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    6: eval(sc, parent.frame())    7: eval(sc, parent.frame())    8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)    9: doTryCatch(return(expr), name, parentenv, handler)   10: tryCatchOne(expr, names, parentenv, handlers[[1L]])   11: tryCatchList(expr, classes, parentenv, handlers)      Traceback:   12: 1: tryCatch(expr, error = function(e) {lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n) call <- conditionCall(e)       if (!is.null(call)) { 2: if (identical(call[[1L]], quote(doTryCatch))) lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx, call <- sys.call(-4L) fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure, dcall <- deparse(call, nlines = 1L) slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one, prefix <- paste("Error in", dcall, ": ") unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], LONG <- 75L sampling_weights_type = swt_type) sm <- strsplit(conditionMessage(e), "\n")[[1L]]           w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") 3: if (is.na(w)) lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], wls_v = wls_v, nacov = nacov) type = "b")           if (w > LONG) prefix <- paste0(prefix, "\n ") 4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata, } lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov, else prefix <- "Error : " sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs, msg <- paste0(prefix, conditionMessage(e), "\n") ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable) .Internal(seterrmessage(msg[1L]))       if (!silent && isTRUE(getOption("show.error.messages"))) { 5: cat(msg, file = outFile)lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, .Internal(printDeferredWarnings()) std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa") }       invisible(structure(msg, class = "try-error", condition = e)) 6: })eval(sc, parent.frame())      13: 7: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE)   eval(sc, parent.frame())14:   generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, 8: free1 = free, s = s, k = k, nf = nf)lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,       std.lv = TRUE, warn = FALSE)15:   FUN(X[[i]], ...) 9:   doTryCatch(return(expr), name, parentenv, handler)16:   lapply(X = S, FUN = FUN, ...)10:   tryCatchOne(expr, names, parentenv, handlers[[1L]])17:   doTryCatch(return(expr), name, parentenv, handler)11:   tryCatchList(expr, classes, parentenv, handlers)18:   tryCatchOne(expr, names, parentenv, handlers[[1L]])12:   tryCatch(expr, error = function(e) {19: call <- conditionCall(e)tryCatchList(expr, classes, parentenv, handlers) if (!is.null(call)) {           if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L)20: dcall <- deparse(call, nlines = 1L)tryCatch(expr, error = function(e) { prefix <- paste("Error in", dcall, ": ") call <- conditionCall(e) LONG <- 75L if (!is.null(call)) { sm <- strsplit(conditionMessage(e), "\n")[[1L]] if (identical(call[[1L]], quote(doTryCatch))) w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") call <- sys.call(-4L) if (is.na(w)) dcall <- deparse(call, nlines = 1L) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], prefix <- paste("Error in", dcall, ": ") type = "b") LONG <- 75L if (w > LONG) sm <- strsplit(conditionMessage(e), "\n")[[1L]] prefix <- paste0(prefix, "\n ") w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") } if (is.na(w)) else prefix <- "Error : " w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], msg <- paste0(prefix, conditionMessage(e), "\n") type = "b") .Internal(seterrmessage(msg[1L])) if (w > LONG) prefix <- paste0(prefix, "\n ") if (!silent && isTRUE(getOption("show.error.messages"))) { } cat(msg, file = outFile) else prefix <- "Error : " .Internal(printDeferredWarnings()) 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())13: }try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, invisible(structure(msg, class = "try-error", condition = e)) std.lv = TRUE, warn = FALSE), silent = TRUE)})      14: 21: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, try(lapply(X = S, FUN = FUN, ...), silent = TRUE) free1 = free, s = s, k = k, nf = nf)      22: 15: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))FUN(X[[i]], ...)      23: 16: FUN(X[[i]], ...)lapply(X = S, FUN = FUN, ...)      24: 17: lapply(seq_len(cores), inner.do)doTryCatch(return(expr), name, parentenv, handler)      25: 18: parallel::mclapply(1:rep, function(r) {tryCatchOne(expr, names, parentenv, handlers[[1L]]) generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,           free1 = free, s = s, k = k, nf = nf)19: }, mc.cores = cores)tryCatchList(expr, classes, parentenv, handlers)      26: 20: gen_fit(mod1 = mod, x = bb1992, rep = 10)tryCatch(expr, error = function(e) {       call <- conditionCall(e)27: if (!is.null(call)) {eval(code, test_env) if (identical(call[[1L]], quote(doTryCatch)))   28: call <- sys.call(-4L)eval(code, test_env) dcall <- deparse(call, nlines = 1L)           prefix <- paste("Error in", dcall, ": ")29: LONG <- 75LwithCallingHandlers({ sm <- strsplit(conditionMessage(e), "\n")[[1L]] eval(code, test_env) w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") new_expectations <- the$test_expectations > starting_expectations if (is.na(w)) if (snapshot_skipped) { w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], skip("On CRAN") type = "b") } if (w > LONG) else if (!new_expectations && skip_on_empty) { prefix <- paste0(prefix, "\n ") skip_empty() } } else prefix <- "Error : "}, expectation = handle_expectation, packageNotFoundError = function(e) { msg <- paste0(prefix, conditionMessage(e), "\n") if (on_cran()) { .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { skip(paste0("{", e$package, "} is not installed.")) cat(msg, file = outFile) } .Internal(printDeferredWarnings())}, snapshot_on_cran = function(cnd) { } snapshot_skipped <<- TRUE invisible(structure(msg, class = "try-error", condition = e)) invokeRestart("muffle_cran_snapshot")})}, skip = handle_skip, warning = handle_warning, message = handle_message,       error = handle_error, interrupt = handle_interrupt)21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)      30: 22: doTryCatch(return(expr), name, parentenv, handler)sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))      31: 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])FUN(X[[i]], ...)      32: 24: tryCatchList(expr, classes, parentenv, handlers)lapply(seq_len(cores), inner.do)      33: 25: tryCatch(withCallingHandlers({parallel::mclapply(1:rep, function(r) { eval(code, test_env) generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, new_expectations <- the$test_expectations > starting_expectations free1 = free, s = s, k = k, nf = nf) if (snapshot_skipped) {}, mc.cores = cores) skip("On CRAN")       }26: else if (!new_expectations && skip_on_empty) {gen_fit(mod1 = mod, x = bb1992, rep = 10) skip_empty()       }27: }, expectation = handle_expectation, packageNotFoundError = function(e) {eval(code, test_env) if (on_cran()) {           skip(paste0("{", e$package, "} is not installed."))28: }eval(code, test_env)}, snapshot_on_cran = function(cnd) {       snapshot_skipped <<- TRUE29: invokeRestart("muffle_cran_snapshot")withCallingHandlers({}, skip = handle_skip, warning = handle_warning, message = handle_message, eval(code, test_env) error = handle_error, interrupt = handle_interrupt), error = handle_fatal) new_expectations <- the$test_expectations > starting_expectations       if (snapshot_skipped) {34: skip("On CRAN")doWithOneRestart(return(expr), restart) }       else if (!new_expectations && skip_on_empty) {35: skip_empty()withOneRestart(expr, restarts[[1L]]) }   }, expectation = handle_expectation, packageNotFoundError = function(e) {36: if (on_cran()) {withRestarts(tryCatch(withCallingHandlers({ skip(paste0("{", e$package, "} is not installed.")) eval(code, test_env) } new_expectations <- the$test_expectations > starting_expectations}, snapshot_on_cran = function(cnd) { if (snapshot_skipped) { snapshot_skipped <<- TRUE skip("On CRAN") invokeRestart("muffle_cran_snapshot") }}, skip = handle_skip, warning = handle_warning, message = handle_message, else if (!new_expectations && skip_on_empty) { error = handle_error, interrupt = handle_interrupt) skip_empty()       }30: }, expectation = handle_expectation, packageNotFoundError = function(e) {doTryCatch(return(expr), name, parentenv, handler) if (on_cran()) {           skip(paste0("{", e$package, "} is not installed."))31: }tryCatchOne(expr, names, parentenv, handlers[[1L]])}, snapshot_on_cran = function(cnd) {       snapshot_skipped <<- TRUE32: invokeRestart("muffle_cran_snapshot")tryCatchList(expr, classes, parentenv, handlers)}, skip = handle_skip, warning = handle_warning, message = handle_message,       error = handle_error, interrupt = handle_interrupt), error = handle_fatal), 33: end_test = function() {tryCatch(withCallingHandlers({ }) eval(code, test_env)       new_expectations <- the$test_expectations > starting_expectations37: if (snapshot_skipped) {test_code(code = exprs, env = env, reporter = get_reporter() %||% skip("On CRAN") StopReporter$new()) }       else if (!new_expectations && skip_on_empty) {38: skip_empty() }source_file(path, env = env(env), desc = desc, shuffle = shuffle, }, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { error_call = error_call) skip(paste0("{", e$package, "} is not installed."))       }39: }, snapshot_on_cran = function(cnd) {FUN(X[[i]], ...) snapshot_skipped <<- TRUE       invokeRestart("muffle_cran_snapshot")40: }, skip = handle_skip, warning = handle_warning, message = handle_message, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) error_call = error_call)      34: 41: doWithOneRestart(return(expr), restart)doTryCatch(return(expr), name, parentenv, handler)      35: 42: tryCatchOne(expr, names, parentenv, handlers[[1L]])withOneRestart(expr, restarts[[1L]])      43: 36: tryCatchList(expr, classes, parentenv, handlers)withRestarts(tryCatch(withCallingHandlers({       eval(code, test_env)44: new_expectations <- the$test_expectations > starting_expectationstryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") if (snapshot_skipped) { NULL skip("On CRAN")}) }       else if (!new_expectations && skip_on_empty) {45: skip_empty()with_reporter(reporters$multi, 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()) {46: skip(paste0("{", e$package, "} is not installed."))test_files_serial(test_dir = test_dir, test_package = test_package, } test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, }, snapshot_on_cran = function(cnd) { env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, snapshot_skipped <<- TRUE desc = desc, load_package = load_package, shuffle = shuffle, invokeRestart("muffle_cran_snapshot") error_call = error_call)}, skip = handle_skip, warning = handle_warning, message = handle_message,       error = handle_error, interrupt = handle_interrupt), error = handle_fatal), 47: end_test = function() {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, 37: load_package = load_package, parallel = parallel, shuffle = shuffle)test_code(code = exprs, env = env, reporter = get_reporter() %||%       StopReporter$new())48:   test_dir("testthat", package = package, reporter = reporter, 38: ..., load_package = "installed")source_file(path, env = env(env), desc = desc, shuffle = shuffle,       error_call = error_call)   49: 39: test_check("FCO")FUN(X[[i]], ...)      An irrecoverable exception occurred. R is aborting now ...   40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)   41: doTryCatch(return(expr), name, parentenv, handler)   42: tryCatchOne(expr, names, parentenv, handlers[[1L]])   43: tryCatchList(expr, classes, parentenv, handlers)   44: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   45: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))   46: 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)   47: 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)   48: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   49: 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_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)    2: lav_samp_gamma(m_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 = gamma_recipe$n.minus.one, unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], sampling_weights_type = swt_type)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)    4: lav_step05_samp(slot_sample_stats = slot_sample_stats, 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)    5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    6: eval(sc, parent.frame())    7: eval(sc, parent.frame())    8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)    9: doTryCatch(return(expr), name, parentenv, handler)   10: tryCatchOne(expr, names, parentenv, handlers[[1L]])   11: tryCatchList(expr, classes, parentenv, handlers)   12: 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:           if (w > LONG) 1: prefix <- paste0(prefix, "\n ")lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n) }       else prefix <- "Error : " 2: msg <- paste0(prefix, conditionMessage(e), "\n")lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx, .Internal(seterrmessage(msg[1L])) fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure, if (!silent && isTRUE(getOption("show.error.messages"))) { slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one, cat(msg, file = outFile) unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], .Internal(printDeferredWarnings()) sampling_weights_type = swt_type) }       invisible(structure(msg, class = "try-error", condition = e)) 3: })lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,       wls_v = wls_v, nacov = nacov)13:    4: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata, std.lv = TRUE, warn = FALSE), silent = TRUE)       lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov, 14: sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs, generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable) free1 = free1, free2 = free2, s = s, k = k, nf = nf)       5: 15: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, FUN(X[[i]], ...) std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")      16: 6: lapply(X = S, FUN = FUN, ...)eval(sc, parent.frame())      17: 7: eval(sc, parent.frame())doTryCatch(return(expr), name, parentenv, handler)       8: 18: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, tryCatchOne(expr, names, parentenv, handlers[[1L]]) std.lv = TRUE, warn = FALSE)      19: 9: tryCatchList(expr, classes, parentenv, handlers)doTryCatch(return(expr), name, parentenv, handler)      20: 10: tryCatch(expr, error = function(e) {tryCatchOne(expr, names, parentenv, handlers[[1L]]) call <- conditionCall(e)       if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) 11: call <- sys.call(-4L)tryCatchList(expr, classes, parentenv, handlers) dcall <- deparse(call, nlines = 1L)           prefix <- paste("Error in", dcall, ": ")12: LONG <- 75LtryCatch(expr, error = function(e) { call <- conditionCall(e) sm <- strsplit(conditionMessage(e), "\n")[[1L]] if (!is.null(call)) { w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) if (is.na(w)) dcall <- deparse(call, nlines = 1L) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], prefix <- paste("Error in", dcall, ": ") type = "b") if (w > LONG) LONG <- 75L prefix <- paste0(prefix, "\n ") sm <- strsplit(conditionMessage(e), "\n")[[1L]] } w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") if (is.na(w)) else prefix <- "Error : " w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") msg <- paste0(prefix, conditionMessage(e), "\n") if (w > LONG) .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { prefix <- paste0(prefix, "\n ") 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"))) {   21: cat(msg, file = outFile) .Internal(printDeferredWarnings())try(lapply(X = S, FUN = FUN, ...), silent = TRUE) }       invisible(structure(msg, class = "try-error", condition = e))22: })sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))   13:   try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, 23: std.lv = TRUE, warn = FALSE), silent = TRUE)FUN(X[[i]], ...)      14: 24: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, lapply(seq_len(cores), inner.do) free1 = free1, free2 = free2, s = s, k = k, nf = nf)      15: FUN(X[[i]], ...)25: parallel::mclapply(1:rep, function(r) {       generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, 16: free1 = free1, free2 = free2, s = s, k = k, nf = nf)lapply(X = S, FUN = FUN, ...)}, mc.cores = cores)      17: 26: doTryCatch(return(expr), name, parentenv, handler)gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",   18: "F5"), dv.cutoff = 0.9)tryCatchOne(expr, names, parentenv, handlers[[1L]])      19: 27: tryCatchList(expr, classes, parentenv, handlers)eval(code, test_env)      20: 28: tryCatch(expr, error = function(e) {eval(code, test_env) call <- conditionCall(e)       if (!is.null(call)) {29: if (identical(call[[1L]], quote(doTryCatch))) withCallingHandlers({ call <- sys.call(-4L) eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations dcall <- deparse(call, nlines = 1L) if (snapshot_skipped) { prefix <- paste("Error in", dcall, ": ") skip("On CRAN") LONG <- 75L } sm <- strsplit(conditionMessage(e), "\n")[[1L]] else if (!new_expectations && skip_on_empty) { w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") skip_empty() if (is.na(w)) } w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b")}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { if (w > LONG) skip(paste0("{", e$package, "} is not installed.")) prefix <- paste0(prefix, "\n ") } }}, snapshot_on_cran = function(cnd) { else prefix <- "Error : " snapshot_skipped <<- TRUE msg <- paste0(prefix, conditionMessage(e), "\n") invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, .Internal(seterrmessage(msg[1L])) error = handle_error, interrupt = handle_interrupt) if (!silent && isTRUE(getOption("show.error.messages"))) {           cat(msg, file = outFile)30: .Internal(printDeferredWarnings())doTryCatch(return(expr), name, parentenv, handler) }       invisible(structure(msg, class = "try-error", condition = e))31: })tryCatchOne(expr, names, parentenv, handlers[[1L]])      32: 21: tryCatchList(expr, classes, parentenv, handlers)try(lapply(X = S, FUN = FUN, ...), silent = TRUE)      33: 22: tryCatch(withCallingHandlers({sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) eval(code, test_env)       new_expectations <- the$test_expectations > starting_expectations23: if (snapshot_skipped) {FUN(X[[i]], ...) skip("On CRAN") }       else if (!new_expectations && skip_on_empty) { skip_empty()24: lapply(seq_len(cores), inner.do) }}, expectation = handle_expectation, packageNotFoundError = function(e) {       if (on_cran()) {25: 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.mod1, }, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE free1 = free1, free2 = free2, s = s, k = k, nf = nf) invokeRestart("muffle_cran_snapshot")}, mc.cores = cores)}, skip = handle_skip, warning = handle_warning, message = handle_message,       error = handle_error, interrupt = handle_interrupt), error = handle_fatal)26:   gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4", 34: "F5"), dv.cutoff = 0.9)doWithOneRestart(return(expr), restart)      27: 35: eval(code, test_env)   withOneRestart(expr, restarts[[1L]])28:   36: eval(code, test_env)withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env)       new_expectations <- the$test_expectations > starting_expectations29: if (snapshot_skipped) {withCallingHandlers({ skip("On CRAN") eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations } if (snapshot_skipped) { else if (!new_expectations && skip_on_empty) { skip_empty() 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()) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, }, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) error = handle_error, interrupt = handle_interrupt), error = handle_fatal),       end_test = function() {30: })doTryCatch(return(expr), name, parentenv, handler)   37:   test_code(code = exprs, env = env, reporter = get_reporter() %||% 31: StopReporter$new())   tryCatchOne(expr, names, parentenv, handlers[[1L]])38:   source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)32:   39: tryCatchList(expr, classes, parentenv, handlers)FUN(X[[i]], ...)      33: 40: tryCatch(withCallingHandlers({lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, eval(code, test_env) error_call = error_call) new_expectations <- the$test_expectations > starting_expectations       if (snapshot_skipped) {41: skip("On CRAN")doTryCatch(return(expr), name, parentenv, handler) }       else if (!new_expectations && skip_on_empty) {42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) skip_empty()       }}, expectation = handle_expectation, packageNotFoundError = function(e) {43: if (on_cran()) {tryCatchList(expr, classes, parentenv, handlers) skip(paste0("{", e$package, "} is not installed."))       }44: }, snapshot_on_cran = function(cnd) {tryCatch(code, testthat_abort_reporter = function(cnd) { snapshot_skipped <<- TRUE cat(conditionMessage(cnd), "\n") invokeRestart("muffle_cran_snapshot") NULL}, skip = handle_skip, warning = handle_warning, message = handle_message, }) error = handle_error, interrupt = handle_interrupt), error = handle_fatal)      45: 34: with_reporter(reporters$multi, lapply(test_paths, test_one_file, doWithOneRestart(return(expr), restart) env = env, desc = desc, shuffle = shuffle, error_call = error_call))   46:   test_files_serial(test_dir = test_dir, test_package = test_package, 35: test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, withOneRestart(expr, restarts[[1L]]) desc = desc, load_package = load_package, shuffle = shuffle,       error_call = error_call)36: withRestarts(tryCatch(withCallingHandlers({       eval(code, test_env)47: new_expectations <- the$test_expectations > starting_expectationstest_files(test_dir = path, test_paths = test_paths, test_package = package, if (snapshot_skipped) { reporter = reporter, load_helpers = load_helpers, env = env, skip("On CRAN") stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, } load_package = load_package, parallel = parallel, shuffle = shuffle) else if (!new_expectations && skip_on_empty) {           skip_empty()48: }test_dir("testthat", package = package, reporter = reporter, }, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { ..., load_package = "installed") skip(paste0("{", e$package, "} is not installed.")) }   }, snapshot_on_cran = function(cnd) {49: snapshot_skipped <<- TRUEtest_check("FCO") invokeRestart("muffle_cran_snapshot")   }, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal), An irrecoverable exception occurred. R is aborting now ...       end_test = function() { })   37: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())   38: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)   39: FUN(X[[i]], ...)   40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)   41: doTryCatch(return(expr), name, parentenv, handler)   42: tryCatchOne(expr, names, parentenv, handlers[[1L]])   43: tryCatchList(expr, classes, parentenv, handlers)   44: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   45: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))   46: 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)   47: 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)   48: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   49: 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'      Traceback:    1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)    2: lav_samp_gamma(m_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 = gamma_recipe$n.minus.one, unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], sampling_weights_type = swt_type)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)    4: lav_step05_samp(slot_sample_stats = slot_sample_stats, 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)    5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    6: eval(sc, parent.frame())    7: eval(sc, parent.frame())    8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)    9: doTryCatch(return(expr), name, parentenv, handler)   10: tryCatchOne(expr, names, parentenv, handlers[[1L]])   11: tryCatchList(expr, classes, parentenv, handlers)   12: 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))})   13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE)   14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf)   15: FUN(X[[i]], ...)   16: lapply(X = S, FUN = FUN, ...)   17: doTryCatch(return(expr), name, parentenv, handler)   18: tryCatchOne(expr, names, parentenv, handlers[[1L]])   19: tryCatchList(expr, classes, parentenv, handlers)   20: 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))})   21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)   22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))   23: FUN(X[[i]], ...)   24: lapply(seq_len(cores), inner.do)   25: 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)   26: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4", "F5"), merge.mod = TRUE)   27: eval(code, test_env)   28: eval(code, test_env)   29: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }    *** caught segfault ***   }, expectation = handle_expectation, packageNotFoundError = function(e) {address 0x110, cause 'invalid permissions'       if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   30: doTryCatch(return(expr), name, parentenv, handler)   31: tryCatchOne(expr, names, parentenv, handlers[[1L]])   32: tryCatchList(expr, classes, parentenv, handlers)   33: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   34: doWithOneRestart(return(expr), restart)   35: withOneRestart(expr, restarts[[1L]])   36: 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() { })   37: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())   38: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)   39: FUN(X[[i]], ...)   40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)   41: doTryCatch(return(expr), name, parentenv, handler)   42: tryCatchOne(expr, names, parentenv, handlers[[1L]])   43: tryCatchList(expr, classes, parentenv, handlers)   44: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   45: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))   46: 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)   47: 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)   48: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   49: test_check("FCO")   An irrecoverable exception occurred. R is aborting now ...      Traceback:    1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)    2: lav_samp_gamma(m_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 = gamma_recipe$n.minus.one, unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]], sampling_weights_type = swt_type)    3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions, wls_v = wls_v, nacov = nacov)    4: lav_step05_samp(slot_sample_stats = slot_sample_stats, 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)    5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    6: eval(sc, parent.frame())    7: eval(sc, parent.frame())    8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)    9: doTryCatch(return(expr), name, parentenv, handler)   10: tryCatchOne(expr, names, parentenv, handlers[[1L]])   11: tryCatchList(expr, classes, parentenv, handlers)   12: 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))})   13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE)   14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf)   15: FUN(X[[i]], ...)   16: lapply(X = S, FUN = FUN, ...)   17: doTryCatch(return(expr), name, parentenv, handler)   18: tryCatchOne(expr, names, parentenv, handlers[[1L]])   19: tryCatchList(expr, classes, parentenv, handlers)   20: 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))})   21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)   22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))   23: FUN(X[[i]], ...)   24: lapply(seq_len(cores), inner.do)   25: 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)   26: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4", "F5"), merge.mod = TRUE)   27: eval(code, test_env)   28: eval(code, test_env)   29: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt)   30: doTryCatch(return(expr), name, parentenv, handler)   31: tryCatchOne(expr, names, parentenv, handlers[[1L]])   32: tryCatchList(expr, classes, parentenv, handlers)   33: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)   34: doWithOneRestart(return(expr), restart)   35: withOneRestart(expr, restarts[[1L]])   36: 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() { })   37: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())   38: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)   39: FUN(X[[i]], ...)   40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)   41: doTryCatch(return(expr), name, parentenv, handler)   42: tryCatchOne(expr, names, parentenv, handlers[[1L]])   43: tryCatchList(expr, classes, parentenv, handlers)   44: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   45: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))   46: 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)   47: 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)   48: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   49: 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 9 | WARN 8 | SKIP 0 | PASS 65 ]      ══ Failed tests ════════════════════════════════════════════════════════════════   ── 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 9 | WARN 8 | SKIP 0 | PASS 65 ]   Error:   ! Test failures.   Execution halted
• checking for unstated dependencies in vignettes ... OK
• checking package vignettes ... OK
• checking re-building of vignette outputs ... [10s/10s] OK
• checking PDF version of manual ... [5s/4s] OK
• DONE

Status: 1 ERROR