m <- 3 ## sample size per treatment group
mu <- 10 ## mean counts in control group for all genes
disp <- 0.1 ## dispersion for all genes
logfc <- log(2) ## log fold change for DE genes
sim <- sim.counts(m = m, mu = mu, disp = disp, logfc = logfc)
sim$counts ## count data matrix
## varying fold change
logfc1 <- function(x){rnorm(x, log(2), 0.5*log(2))}
sim1 <- sim.counts(m = m, mu = mu, disp = disp, logfc = logfc1)
Run the code above in your browser using DataLab