From 79b1a42827a01e6b8b93d9ca35dc6831d5efa2ea Mon Sep 17 00:00:00 2001 From: cjvanlissa Date: Wed, 27 Nov 2024 17:49:41 +0100 Subject: [PATCH] BLRT now allows runs with errors, and passes warnings along --- R/blrt.R | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/R/blrt.R b/R/blrt.R index 12b57f5..aeea671 100644 --- a/R/blrt.R +++ b/R/blrt.R @@ -80,11 +80,11 @@ blrt_internal <- mod_simple <- mxRun(mod_simple, silent = TRUE, - suppressWarnings = TRUE) + suppressWarnings = FALSE) mod_complex <- mxRun(mod_complex, silent = TRUE, - suppressWarnings = TRUE) + suppressWarnings = FALSE) c( mod_simple@output$Minus2LogLikelihood - mod_complex@output$Minus2LogLikelihood, mod_simple@output$status$code + mod_complex@output$status$code @@ -96,7 +96,8 @@ blrt_internal <- )}) bootres <- do.call(rbind, bootres) isvalid <- bootres[, 2] == 0 - lrdist <- bootres[isvalid, 1] + # lrdist <- bootres[isvalid, 1] + lrdist <- bootres[, 1, drop = FALSE] out <- data.frame( lr = lrtest, df = length(omxGetParameters(mod_complex)) - length(omxGetParameters(mod_simple)),