# NOT RUN {
### correlation matrix (should depend on sire haplotypes)
R <- AR1(100, rho = 0.1)
### positions of putative QTL signals
pos <- c(14, 75)
### power at given sample size and other parameters
pwr.normtest(R, 100, 0.35, 1200, pos)
# }
Run the code above in your browser using DataLab