# NOT RUN {
ss <- ss.calc(power=0.8, Case.Rate=c(0.5), k=NULL,
MAF=seq(0.01, 0.05, 0.01), OR=c(4),Alpha=c(0.05),
True.Model='All', Test.Model='All')
ss.plot(data=ss, x='MAF',panel.by='OR')
# }
Run the code above in your browser using DataLab