fix

strengejacke · strengejacke · commit 6f2e8855821a · 2025-06-17T16:12:10.000+02:00
diff --git a/R/n_factors.R b/R/n_factors.R
@@ -151,7 +151,7 @@ n_factors <- function(x,
   # Smooth matrix if negative eigen values
   if (any(eigen_values < 0)) {
     insight::check_if_installed("psych")
-    correlation_matrix <- psych::cor.smooth(cor, ...)
+    correlation_matrix <- psych::cor.smooth(correlation_matrix, ...)
     eigen_values <- eigen(correlation_matrix)$values
   }
 

Original file line number	Diff line number	Diff line change
`@@ -151,7 +151,7 @@ n_factors <- function(x,`
`151`	`151`	`# Smooth matrix if negative eigen values`
`152`	`152`	`if (any(eigen_values < 0)) {`
`153`	`153`	`insight::check_if_installed("psych")`
`154`		`- correlation_matrix <- psych::cor.smooth(cor, ...)`
	`154`	`+ correlation_matrix <- psych::cor.smooth(correlation_matrix, ...)`
`155`	`155`	`eigen_values <- eigen(correlation_matrix)$values`
`156`	`156`	`}`
`157`	`157`