# 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
sdrtmToMBHFDR <- sd.rtm.ToM(rslt.BHFDR)
## Asymptotic standard deviation under BHCLT
sdrtmToMAuto1 <- sd.rtm.ToM(rslt.Auto.1)
## Asymptotic standard deviation under Romano
sdrtmToMAuto2 <- sd.rtm.ToM(rslt.Auto.2)
# }
Run the code above in your browser using DataLab