Merge pull request #803 from easystats/pca_numericonly

PCA: don't error when non-numerics are present
easystats · Oct 27, 2022 · bcc509d · bcc509d
2 parents fdcc236 + 7956b74
commit bcc509d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/R/n_factors.R b/R/n_factors.R
@@ -138,6 +138,9 @@ n_factors <- function(x,
     nobs <- nrow(x)
   }
 
+  # Get only numeric
+  x <- x[sapply(x, is.numeric)]
+
   # Correlation matrix
   if (is.null(cor)) {
     cor <- stats::cor(x, use = "pairwise.complete.obs", ...)

diff --git a/R/principal_components.R b/R/principal_components.R
@@ -262,6 +262,9 @@ principal_components.data.frame <- function(x,
   # remove missing
   x <- stats::na.omit(x)
 
+  # Select numeric only
+  x <- x[sapply(x, is.numeric)]
+
   # N factors
   n <- .get_n_factors(x, n = n, type = "PCA", rotation = rotation)