Kill the head vampire!

I unclassed the table in the internal function.
grunwaldlab · May 12, 2015 · 82eb32d · 82eb32d
1 parent 08d51d9
commit 82eb32d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/internal.r b/R/internal.r
@@ -501,7 +501,7 @@ mlg.matrix <- function(x){
     colnames(mlg.mat) <- 1:mlgs
   }
   colnames(mlg.mat) <- paste("MLG", colnames(mlg.mat), sep=".")
-  return(mlg.mat)
+  return(unclass(mlg.mat))
 }
 #==============================================================================#
 # DEPRECATED

diff --git a/R/mlg.r b/R/mlg.r
@@ -248,7 +248,7 @@ mlg.table <- function(pop, sublist="ALL", blacklist=NULL, mlgsub=NULL, bar=TRUE,
     }
   }
   mlgtab <- mlgtab[, which(colSums(mlgtab) > 0)]
-  return(unclass(mlgtab))
+  return(mlgtab)
 }
 
 #==============================================================================#