delta = rep(c(0,2),c(95,5)) # 95% null; 5% with delta = 2 res=fdr.avepow(10,         # per-group sample size        average.power.t.test, # average power function        null.hypo = “delta == 0”, # null hypothesis        delta = delta)     # effect size vector head(res$res.tbl)

##        alpha   fdr     pwr ## [1,] 0.001 0.02800492 0.6951602 ## [2,] 0.002 0.04869462 0.7834460 ## [3,] 0.003 0.06773070 0.8288612 ## [4,] 0.004 0.08567764 0.8577325 ## [5,] 0.005 0.10276694 0.8780755 ## [6,] 0.006 0.11912689 0.8933293