# NOT RUN {
#Simulate an F2 design
f2Pedigree <- f2Pedigree(1000)
map <- qtl::sim.map(len = 100, n.mar = 11, include.x=FALSE)
cross <- simulateMPCross(map = map, pedigree = f2Pedigree, mapFunction = haldane, seed = 1)
founders(cross)
finals(cross)[1:10,]
#The heterozygotes are initially coded as 3
hetData(cross)[[1]]
#Make all markers dominant
dominantCross <- cross + biparentalDominant()
founders(dominantCross)
finals(dominantCross)[1:10,]
#The heterozygotes are now coded the same as one of the homozygotes
hetData(dominantCross)[1:4]
# }
Run the code above in your browser using DataLab