n = 50; # number of events
logHR = rep(c(0,0.5),c(950,50));
v = rep(1,length(logHR)); # variance of predictor variable (vector)
res = fdr.avepow(n,average.power.coxph,"logHR==0",logHR=logHR,v=v);
res$pi0;
head(res$res.tbl)
Run the code above in your browser using DataLab