rslt.avgp.r15 <- pwrFDR(effect.size = 0.79, average.power=0.80, r.1 = 0.15, alpha = 0.15)
rslt.avgp.r10 <- update(rslt.avgp.r15, r.1 = 0.10)
rslt.avgp.r05 <- update(rslt.avgp.r15, r.1 = 0.05)
join.tbl(rslt.avgp.r15, rslt.avgp.r10, rslt.avgp.r05)
Run the code above in your browser using DataLab