Don't collapse 1 row / 1 col matrices into vectors automatically

1 files changed, 5 insertions, 5 deletions

diff --git a/R/datacheck.R b/R/datacheck.R
index 7222ba3..7c40473 100644
--- a/R/datacheck.R
+++ b/R/datacheck.R
@@ -14,10 +14,10 @@ data.check <- function(x,name,verbose=TRUE){
   
   
   if (is.numeric(x)&&is.matrix(x)){
-    if(1%in%dim(x)){
-      if(verbose){cat('\nConverting 1-column matrix \'',name,'\' to vector\n',sep="")}
-      x = as.vector(x)
-    }
+    #if(1%in%dim(x)){
+    #  if(verbose){cat('\nConverting 1-column matrix \'',name,'\' to vector\n',sep="")}
+    #  x = as.vector(x)
+    #}
     test = TRUE
   }
   
@@ -33,4 +33,4 @@ data.check <- function(x,name,verbose=TRUE){
     return(x)
   } else{return('error')}
   
-}
\ No newline at end of file
+}