# 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, FDR=0.15)
## Now verify that G_A( gamma f ) = average.power
gamma <- rslt.avgp$gamma
f <- rslt.avgp$call$FDR
GA.gma.f <- CDF.Pval.HA(u=gamma*f, r.1=2000/54675, effect.size=0.79, n.sample=46)
c(G.A.of.gamma.f=GA.gma.f$CDF.Pval.HA, average.power=rslt.avgp$average.power)
# }
Run the code above in your browser using DataLab