From f2f4f84fe4c2e13c1f02dbbfa8ebbad88e716395 Mon Sep 17 00:00:00 2001
From: Luke Zappia <lazappi@users.noreply.github.com>
Date: Fri, 29 Sep 2017 14:32:32 +1000
Subject: [PATCH] Update scDDSimulate
---
R/scDD-simulate.R | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/R/scDD-simulate.R b/R/scDD-simulate.R
index 704e14a..a9dbd3f 100644
--- a/R/scDD-simulate.R
+++ b/R/scDD-simulate.R
@@ -91,9 +91,9 @@ scDDSimulate <- function(params = newSCDDParams(), plots = FALSE,
)
}
- counts <- scDD.sim[[1]]
- foldchanges <- scDD.sim[[2]]
- de.status <- rownames(counts)
+ counts <- SummarizedExperiment::assays(scDD.sim)$normcounts
+ foldchanges <- SummarizedExperiment::rowData(scDD.sim)$FC
+ de.status <- SummarizedExperiment::rowData(scDD.sim)$Category
if (verbose) {message("Creating final dataset...")}
cell.names <- paste0("Cell", seq_len(nCells * 2))
--
GitLab