Merge pull request satijalab#573 from mschilli87/fix_571

Transform `data` also for single cells in AverageExpression
randel · Jun 27, 2018 · 012b28f · 012b28f
2 parents 603caf6 + d65536a
commit 012b28f
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/utilities.R b/R/utilities.R
@@ -592,6 +592,10 @@ AverageExpression <- function(
       genes.assay <- unique(x = intersect(x = genes.assay, y = rownames(x = data.use)))
       if (length(x = temp.cells) == 1) {
         data.temp <- (data.use[genes.assay, temp.cells])
+        # transform data if needed (alternative: apply fxn.average to single value above)
+        if(!(use.scale | use.raw)) { # equivalent: slot.use == "data"
+          data.temp <- expm1(data.temp)
+        }
       }
       if (length(x = temp.cells) >1 ) {
         data.temp <- apply(