diff --git a/R/exploratoryfactoranalysis.R b/R/exploratoryfactoranalysis.R index a5db7ebb..13e39f3c 100644 --- a/R/exploratoryfactoranalysis.R +++ b/R/exploratoryfactoranalysis.R @@ -101,7 +101,7 @@ exploratoryFactorAnalysisInternal <- function(jaspResults, dataset, options, ... ) if (options[["dataType"]] == "raw") { - error <- .hasErrors(dataset = dataset, type = c("infinity", "variance"), custom = customChecksEFA, + error <- .hasErrors(dataset = dataset, type = c("infinity", "variance", "varCovData"), custom = customChecksEFA, exitAnalysisIfErrors = TRUE) } diff --git a/R/principalcomponentanalysis.R b/R/principalcomponentanalysis.R index 432e1c1b..4945b5c3 100644 --- a/R/principalcomponentanalysis.R +++ b/R/principalcomponentanalysis.R @@ -157,7 +157,7 @@ principalComponentAnalysisInternal <- function(jaspResults, dataset, options, .. ) if (options[["dataType"]] == "raw") { - error <- .hasErrors(dataset = dataset, type = c("infinity", "variance"), custom = customChecksPCAEFA, + error <- .hasErrors(dataset = dataset, type = c("infinity", "variance", "varCovData"), custom = customChecksPCAEFA, exitAnalysisIfErrors = TRUE) }