Skip to content
Snippets Groups Projects
Commit e5402c4c authored by Luke Zappia's avatar Luke Zappia
Browse files

Fix group factors bug

parent 20a6ca9b
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
DESCRIPTION
+ 2
− 2
View file @ e5402c4c
Package: splatter Package: splatter
Type: Package Type: Package
Title: Simple Simulation of Single-cell RNA Sequencing Data Title: Simple Simulation of Single-cell RNA Sequencing Data
Version: 1.1.3 Version: 1.1.4
Date: 2017-07-20 Date: 2017-08-04
Author: Luke Zappia Author: Luke Zappia
Authors@R: Authors@R:
c(person("Luke", "Zappia", role = c("aut", "cre"), c(person("Luke", "Zappia", role = c("aut", "cre"),
......
NEWS.md
+ 4
− 0
View file @ e5402c4c
# 1.1.4
* Fix group factors bug
# 1.1.3 # 1.1.3
* Add verbose option to scDDEstimate * Add verbose option to scDDEstimate
......
R/splat-simulate.R
+ 1
− 2
View file @ e5402c4c
...@@ -501,7 +501,7 @@ splatSimGroupCellMeans <- function(sim, params) { ...@@ -501,7 +501,7 @@ splatSimGroupCellMeans <- function(sim, params) {
cell.names <- pData(sim)$Cell cell.names <- pData(sim)$Cell
gene.names <- fData(sim)$Gene gene.names <- fData(sim)$Gene
groups <- pData(sim)$Group groups <- pData(sim)$Group
group.names <- unique(groups) group.names <- sort(unique(groups))
exp.lib.sizes <- pData(sim)$ExpLibSize exp.lib.sizes <- pData(sim)$ExpLibSize
batch.means.cell <- get_exprs(sim, "BatchCellMeans") batch.means.cell <- get_exprs(sim, "BatchCellMeans")
...@@ -535,7 +535,6 @@ splatSimPathCellMeans <- function(sim, params) { ...@@ -535,7 +535,6 @@ splatSimPathCellMeans <- function(sim, params) {
path.nonlinearProb <- getParam(params, "path.nonlinearProb") path.nonlinearProb <- getParam(params, "path.nonlinearProb")
path.sigmaFac <- getParam(params, "path.sigmaFac") path.sigmaFac <- getParam(params, "path.sigmaFac")
groups <- pData(sim)$Group groups <- pData(sim)$Group
group.names <- unique(groups)
exp.lib.sizes <- pData(sim)$ExpLibSize exp.lib.sizes <- pData(sim)$ExpLibSize
batch.means.cell <- get_exprs(sim, "BatchCellMeans") batch.means.cell <- get_exprs(sim, "BatchCellMeans")
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment