p0 <- 0.8 ## proportion of non-differentially expressed genes
mu <- 10 ## mean counts in control group for all genes
disp <- 0.1 ## dispersion for all genes
logfc <- log(2) ## log fold change for up-regulated genes
size <- ssizeRNA_single(pi0 = p0, mu = mu, disp = disp, logfc = logfc, m = 30, maxN = 20)
size$ssize ## first sample size to reach desired power
size$power ## calculated power for each sample size
size$crit.vals ## calculated critical value for each sample sizeRun the code above in your browser using DataLab