# NOT RUN {
pedigree <- eightParentPedigreeImproperFunnels(initialPopulationSize = 10,
selfingGenerations = 1, nSeeds = 1)
#Generate map
map <- qtl::sim.map()
#Simulate data
cross <- simulateMPCross(map = map, pedigree = pedigree, mapFunction = haldane)
finals(cross)[1:5, 1:5]
hetData(cross)[[1]]
cross <- cross + removeHets()
finals(cross)[1:5, 1:5]
hetData(cross)[[1]]
# }
Run the code above in your browser using DataLab