# NOT RUN {
## First calculate an average power for a given set of parameters
rslt.avgp <- pwrFDR(effect.size=0.79, n.sample=46, r.1=2000/54675, alpha=0.15)
## Now verify that G( gamma alpha ) = gamma
gma <- rslt.avgp$gamma
alpha <- rslt.avgp$call$alpha
G.gma.a <- CDF.Pval(u=gma*alpha, r.1=2000/54675, effect.size=0.79, n.sample=46)$CDF.Pval$CDF.Pval
c(G.of.gamma.alpha=G.gma.a, gamma=gma)
# }
Run the code above in your browser using DataLab