# NOT RUN {
rslt.BHFDR <- pwrFDR(effect.size=0.79, n.sample=46, r.1=0.05, alpha=0.15)
rslt.Auto.1 <- pwrFDR(effect.size=0.79, n.sample=46, r.1=0.05, alpha=0.15, N.tests=51,
FDP.control.method="Auto")
rslt.Auto.2 <- pwrFDR(effect.size=0.79, n.sample=46, r.1=0.05, alpha=0.15, N.tests=49,
FDP.control.method="Auto")
## Asymptotic standard deviation under BHFDR
sdrtmVoRBHFDR <- sd.rtm.VoR(rslt.BHFDR)
## Asymptotic standard deviation under BHCLT
sdrtmVoRAuto1 <- sd.rtm.VoR(rslt.Auto.1)
## Asymptotic standard deviation under Romano
sdrtmVoRAuto2 <- sd.rtm.VoR(rslt.Auto.2)
# }
Run the code above in your browser using DataLab