evaluateDensities: Evaluate the densities in the estimated SPsimSeq object

Description Usage Arguments Value Examples

View source: R/evaluateDensities.R

Description

Evaluate the densities in the estimated SPsimSeq object

Usage

1
evaluateDensities(SPobj, newData = names(SPobj$detailed.results$densList))

Arguments

SPobj

The SPsimSeq object, with details retained

newData

A character vector of gene names

Value

a list of estimated densities, breaks and midpoints, one for every gene in newData

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
data("zhang.data.sub")
# filter genes with sufficient expression (important step to avoid bugs)
zhang.counts <- zhang.data.sub$counts
MYCN.status  <- zhang.data.sub$MYCN.status
# simulate data
sim.data.bulk <- SPsimSeq(n.sim = 1, s.data = zhang.counts,
                          group = MYCN.status, n.genes = 2000, batch.config = 1,
                          group.config = c(0.5, 0.5), tot.samples = 20,
                          pDE = 0.1, lfc.thrld = 0.5, result.format = "list",
                          return.details = TRUE)
outDens = evaluateDensities(sim.data.bulk)
select.genes <- sample(names(outDens), 4)
select.sample = sample(
seq_along(sim.data.bulk$detailed.results$exprmt.design$sub.groups), 1)
par(mfrow=c(2, 2))
for(i in select.genes){
     plot(outDens[[i]][[select.sample]]$mids, outDens[[i]][[select.sample]]$gy, type = "l", 
     xlab = "Outcome", ylab = "Density", main = paste("Gene", i))
  }

SPsimSeq documentation built on Nov. 8, 2020, 5:09 p.m.