library(edgeR)
library(qvalue)
arg = list(
nG = 10000,
pi0 = 0.8,
group = rep(c(1, 2), each = 13)
)
k <- 2 ## number of simulations (defined by user)
fdr <- 0.05 ## the false discovery rate to be controlled
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
check.power(arg, k, fdr, mu, disp, logfc)Run the code above in your browser using DataLab