added df to matrix conversion to prepCalData method

svkucheryavski · Aug 2, 2024 · 4555878 · 4555878
1 parent f0396d6
commit 4555878
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/misc.R b/R/misc.R
@@ -844,5 +844,11 @@ prepCalData <- function(x, exclrows = NULL, exclcols = NULL, min.nrows = 1, min.
       stop(sprintf("Dataset should contain at least %d variables (columns).", min.ncols))
    }
 
+   if (is.data.frame((x))) {
+      nvar <- ncol(x)
+      x <- mda.df2mat(x)
+      stopifnot("The provided data frame has non-numeric columns, convert them to the numbers first." = ncol(x) == nvar)
+   }
+
    return(x)
 }