update to add_population_error

AlexChristensen · Jun 11, 2024 · 0d20ae7 · 0d20ae7
1 parent a13e2e7
commit 0d20ae7
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/R/add_population_error.R b/R/add_population_error.R
@@ -7,7 +7,7 @@
 #'
 #' @param cfa_method Character (length = 1).
 #' Method to generate population error.
-#' Defaults to \code{"minres"}.
+#' Defaults to \code{"ml"}.
 #' Available options:
 #'
 #' \itemize{
@@ -169,7 +169,7 @@
 #' @export
 #'
 # Add population error to simulated data
-# Updated 26.05.2024
+# Updated 11.06.2024
 add_population_error <- function(
     lf_object,
     cfa_method = c("minres", "ml"),
@@ -202,7 +202,7 @@ add_population_error <- function(
 
   # Check for missing CFA method
   if(missing(cfa_method)){
-    cfa_method <- "minres"
+    cfa_method <- "ml"
   }else{cfa_method <- tolower(match.arg(cfa_method))}
 
   # Check for missing fit
@@ -675,6 +675,7 @@ add_population_error <- function(
     delta = population_error$delta,
     misfit = population_error$misfit,
     loadings = error_loadings,
+    MAX_residual = max_abs_res,
     SRMR_difference = SRMR_difference,
     MAE_loadings = MAE
   )

diff --git a/man/add_population_error.Rd b/man/add_population_error.Rd