# NOT RUN {
pedigree <- eightParentPedigreeRandomFunnels(initialPopulationSize = 100,
selfingGenerations = 2, nSeeds = 1, intercrossingGenerations = 0)
selfing(pedigree) <- "finite"
#Generate map
map <- qtl::sim.map()
#Simulate data
cross <- simulateMPCross(map = map, pedigree = pedigree, mapFunction = haldane)
crossSNP <- cross + multiparentSNP(keepHets = TRUE)
crossMapped <- mpcrossMapped(crossSNP, map = map)
imputed <- imputeFounders(crossMapped, errorProb = 0.01)
#An imputed IBD genotype of 1 indicates a homozygote for founder 1
#An imputed IBD genotype of 9 indicates a heterozygote for founders 1 and 2
#etc
head(imputationKey(imputed))
# }
Run the code above in your browser using DataLab