dm <- 1.2; ds <- 0.1 ## the delta.g's follow a Normal(1.2, 0.1) distribution
s <- 1 ## common standard deviation
fdr <- 0.05 ## false discovery rate to be controlled
pwr <- 0.8 ## desired power
pi0 <- c(0.5, 0.8, 0.99) ## proportions of non-differentially expressed genes
N <- 35 ## maximum sample size for calculations
size <- ssize.twoSampVaryDelta(deltaMean = dm, deltaSE = ds, sigma = s,
fdr = fdr, power = pwr, pi0 = pi0,
maxN = N, side = "two-sided")
size$ssize ## first sample size(s) to reach desired power
size$power ## calculated power for each sample size
size$crit.vals ## calculated critical value for each sample size
Run the code above in your browser using DataLab