# NOT RUN {
or <- odds_ratio_function(N=1000, Case.Rate=0.5, k=NULL,
MAF=seq(0.3, 0.32, 0.01), power=0.8,Alpha=0.05,
True.Model=c("Dominant", "Recessive"), Test.Model=c("Dominant", "Recessive"))
or.plot(data=or, x='MAF')
# }
Run the code above in your browser using DataLab