# NOT RUN {
map <- qtl::sim.map()
pedigree <- f2Pedigree(1000)
cross <- simulateMPCross(map = map, pedigree = pedigree, mapFunction = haldane, seed = 1)
mappedCross <- mpcrossMapped(cross = cross, map = map)
getPositions(mappedCross, c("D13M3", "DXM1", "DXM3"))
# }
Run the code above in your browser using DataLab