# NOT RUN {
### correlation matrix (should depend on sire haplotypes)
R <- AR1(100, rho = 0.1)
### positions of putative QTL signals
pos <- c(14, 75)
### optimal sample size
search.best.n.bisection(R, 0.35, 1200, pos, 10, 5000)
# }
Run the code above in your browser using DataLab