diff --git a/DESCRIPTION b/DESCRIPTION index c3b526bc1958c3ef1da8eeaf086721ec44d20121..304ab01523ae5364fc9bd2a3f164f849e15040b6 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,8 +1,8 @@ Package: splatter Type: Package Title: Simple Simulation of Single-cell RNA Sequencing Data -Version: 1.1.3 -Date: 2017-07-20 +Version: 1.1.4 +Date: 2017-08-04 Author: Luke Zappia Authors@R: c(person("Luke", "Zappia", role = c("aut", "cre"), diff --git a/NEWS.md b/NEWS.md index 36c15796fbbc795b5219c97923a2e17c674e7dcb..99263acf2807c3bf1a183f3d53bb6a6274313694 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,7 @@ +# 1.1.4 + +* Fix group factors bug + # 1.1.3 * Add verbose option to scDDEstimate diff --git a/R/splat-simulate.R b/R/splat-simulate.R index e129beb2aa10fff82f5266e36035726370ce93ca..5256804ea4ee0dc210b9d3cfe502bb28ab041211 100644 --- a/R/splat-simulate.R +++ b/R/splat-simulate.R @@ -501,7 +501,7 @@ splatSimGroupCellMeans <- function(sim, params) { cell.names <- pData(sim)$Cell gene.names <- fData(sim)$Gene groups <- pData(sim)$Group - group.names <- unique(groups) + group.names <- sort(unique(groups)) exp.lib.sizes <- pData(sim)$ExpLibSize batch.means.cell <- get_exprs(sim, "BatchCellMeans") @@ -535,7 +535,6 @@ splatSimPathCellMeans <- function(sim, params) { path.nonlinearProb <- getParam(params, "path.nonlinearProb") path.sigmaFac <- getParam(params, "path.sigmaFac") groups <- pData(sim)$Group - group.names <- unique(groups) exp.lib.sizes <- pData(sim)$ExpLibSize batch.means.cell <- get_exprs(sim, "BatchCellMeans")