Update R/confirmatoryfactoranalysis.R

Co-authored-by: František Bartoš <[email protected]>
jasp-stats · Oct 16, 2024 · 745f983 · 745f983
1 parent dff0f98
commit 745f983
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/confirmatoryfactoranalysis.R b/R/confirmatoryfactoranalysis.R
@@ -191,8 +191,11 @@ confirmatoryFactorAnalysisInternal <- function(jaspResults, dataset, options, ..
   if (options$group == "") grp <- NULL else grp <- options$group
 
   if (anyNA(dataset)) {
-    naAction <- ifelse(options$naAction == "twoStageRobust", "robust.two.stage",
-                       ifelse(options$naAction == "twoStage", "two.stage", options$naAction))
+    naAction <- switch(
+      options$naAction, 
+      "twoStageRobust" = "robust.two.stage",
+      "twoStage"       = "two.stage",
+      options$naAction)
   } else {
     naAction <- "listwise"
   }