if (FALSE) {
library("parallel")
gen <- Maize_wqs[[4]]
map <- Maize_wqs[[3]]
Res_ld <- ld_decay (gen=gen, map=map, max_win_snp=2000,
max.chr=10, cores=1, max_r2=0.03)
}
Run the code above in your browser using DataLab