if (FALSE) {
sim <- simRIL(d=25, n=200, g=5, cM=100, selfing= 2)
# to use the same genotyping coding as R/qtl package (See details)
sim$data <- (sim$data) + 1
#Estimate linkage groups and order markers within each LG
out <- netmap(sim$data, cross = "inbred")
map <- out$map; map
plot(out)
# A list of genotyoing error
detect.err(out, pop.type = "RIL2")
}
Run the code above in your browser using DataLab