fix listwise deletion error with ordinal data in PCA

jasp-stats · Feb 7, 2024 · 3f0b6ba · 3f0b6ba
1 parent 6aa579a
commit 3f0b6ba
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/principalcomponentanalysis.R b/R/principalcomponentanalysis.R
@@ -49,7 +49,7 @@ principalComponentAnalysisInternal <- function(jaspResults, dataset, options, ..
   if (!is.null(dataset)) return(dataset)
 
   if (options[["naAction"]] == "listwise") {
-    return(.readDataSetToEnd(columns = unlist(options$variables), exclude.na.listwise = unlist(options$variables)))
+    return(.readDataSetToEnd(columns.as.numeric = unlist(options$variables), exclude.na.listwise = unlist(options$variables)))
   } else {
     return(.readDataSetToEnd(columns.as.numeric = unlist(options$variables)))
   }