From 57f809c51bb1e11532d344fab6b17411dcd850eb Mon Sep 17 00:00:00 2001 From: Jakob Russel Date: Wed, 28 Mar 2018 16:20:41 -0400 Subject: [PATCH] fix bug --- R/featurePlot.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/featurePlot.R b/R/featurePlot.R index aacf9e3..fb6f339 100644 --- a/R/featurePlot.R +++ b/R/featurePlot.R @@ -44,7 +44,7 @@ featurePlot <- function(data, predictor, paired = NULL, covars = NULL, feature = if(!feature %in% rownames(count_table)) stop("feature not found in data") # Relative and logscale - if(relative) count_table <- apply(count_table, 2, function(x) x/sum(x)) + if(relative) count_table <- apply(count_table, 2, function(x) x/sum(x)) else count_table <- unclass(count_table) if(logScale) count_table <- log10(count_table + delta) # Dataframe