handle factors

perishky · May 24, 2016 · 72c21c1 · 72c21c1
1 parent 679f644
commit 72c21c1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/cell-type-specific-methylation.r b/R/cell-type-specific-methylation.r
@@ -18,6 +18,7 @@ meffil.cell.type.specific.methylation <- function(beta, cell.types, number.sites
     stopifnot(number.sites > 0 && number.sites < nrow(beta))
 
     number.cell.types <- length(unique(cell.types))
+    cell.types <- as.character(cell.types)
     design <- model.matrix(~ 0 + cell.types)
 
     msg("fitting linear model with limma::lmFit", verbose=verbose)