# NOT RUN {
set.seed(1)
pedigree <- fourParentPedigreeRandomFunnels(initialPopulationSize = 1000,
selfingGenerations = 6, intercrossingGenerations = 1)
#Assume infinite generations of selfing in subsequent analysis
selfing(pedigree) <- "infinite"
#Generate random map
map <- qtl::sim.map(len = 100, n.mar = 101, anchor.tel = TRUE, include.x = FALSE)
#Simulate data
cross <- simulateMPCross(map = map, pedigree = pedigree, mapFunction = haldane, seed = 1L)
#Because we have maintenance in this experiment, we can't get out the funnels per genetic line
funnels <- getAllFunnels(cross)
dim(funnels)
funnels[1:10,]
#But we can get out a list of all the funnels that go into the experiment.
funnels <- getAllFunnelsIncAIC(cross)
dim(funnels)
funnels[1:10,]
# }
Run the code above in your browser using DataLab