[efa] convert data= to data.frame (if matrix or something else)

yrosseel · Nov 18, 2024 · 597ae63 · 597ae63
1 parent 5a0e02b
commit 597ae63
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: lavaan
 Title: Latent Variable Analysis
-Version: 0.6-20.2234
+Version: 0.6-20.2235
 Authors@R: c(person(given   = "Yves", family = "Rosseel",
                     role    = c("aut", "cre"),
                     email   = "[email protected]",

diff --git a/R/xxx_efa.R b/R/xxx_efa.R
@@ -40,6 +40,11 @@ efa <- function(data = NULL,
   #                        with the efa() modifier."))
   #}
 
+  # if data= argument is used, convert to data.frame (eg matrix, tibble, ...)
+  if (!is.null(data)) {
+    data <- as.data.frame(data)
+  }
+
   # handle ov.names
   if (!is.null(data) && inherits(data, "lavMoments")) {
     if ("sample.cov" %in% names(data)) {