# NOT RUN {
set.seed(1)
#This data was generated by the following script
pedigree <- fourParentPedigreeRandomFunnels(initialPopulationSize = 1000,
selfingGenerations = 6, intercrossingGenerations = 0)
#Assume infinite generations of selfing in subsequent analysis
selfing(pedigree) <- "infinite"
#Generate random map
simulatedFourParentMap <- qtl::sim.map(len = 100, n.mar = 101, anchor.tel = TRUE,
include.x = FALSE)
#Simulate data
simulatedFourParentData <- simulateMPCross(map = simulatedFourParentMap, pedigree = pedigree,
mapFunction = haldane, seed = 1L)
# }
Run the code above in your browser using DataLab