# 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)
chromosomeAssignment <- getChromosomes(mappedCross, markers(mappedCross))
chromosomeAssignment
# }
Run the code above in your browser using DataLab