From eab119f5dd36f11994efca8c2d39052f8860d51a Mon Sep 17 00:00:00 2001 From: Julius Pfadt Date: Mon, 18 Nov 2024 10:10:17 +0100 Subject: [PATCH] add varCovData to check Errors --- R/exploratoryfactoranalysis.R | 2 +- R/principalcomponentanalysis.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/exploratoryfactoranalysis.R b/R/exploratoryfactoranalysis.R index a5db7eb..13e39f3 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 432e1c1..4945b5c 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) }