uncomment class detection

zdk123 · Oct 14, 2023 · f3f1420 · f3f1420
1 parent 8b55857
commit f3f1420
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: SpiecEasi
 Title: Sparse Inverse Covariance for Ecological Statistical Inference
-Version: 2.0.0
+Version: 2.0.1
 Authors@R: c(
     person("Zachary", "Kurtz", role = c("aut", "cre"), email="[email protected]"),
     person("Christian", "Mueller", role = "aut"),

diff --git a/R/spiec-easi.R b/R/spiec-easi.R
@@ -392,7 +392,7 @@ multi.spiec.easi <- function(datalist, method='glasso', sel.criterion='stars',
 spiec.easi.list <- function(data, ...) {
   args <- list(...)
   # TODO: move this check to to after types detection
-  # classes <- sapply(data, function(x) class(x)[1])
+  classes <- sapply(data, function(x) class(x)[1])
   # if ((length(unique(classes)) != 1) & (args$cov.method!='latentcor'))
   #   message("input list contains data of mixed classes. 'latentcor' is the recommended `cov.method`")