Simulated data from a four-parent population. Used in the examples given in the documentation.
1 2 3 4 5 6 7 8 9 10 11 12 | 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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.