# NOT RUN {
library(pwrFDR)
crit.b <- criterion(N.tests=1000, alpha=0.15, FDP.control.method="BHFDR")
crit.r <- criterion(N.tests=1000, alpha=0.15, FDP.control.method="Romano")
crit.r.17 <- criterion(N.tests=1000, alpha=0.15, delta=0.17, FDP.control.method="Romano")
matplot(1:1000, cbind(crit.b, crit.r, crit.r.17), type="l", lty=1, col=2:4)
# }
Run the code above in your browser using DataLab