Description Usage Arguments Value See Also Examples
View source: R/eightWayPedigreeRandomFunnels.R
Generate a eight-parent pedigree starting from inbred founders, using a random funnel.
1 2 3 4 5 6 | eightParentPedigreeRandomFunnels(
initialPopulationSize,
selfingGenerations,
nSeeds = 1L,
intercrossingGenerations
)
|
initialPopulationSize |
The number of initially generated lines, whose genetic material is a mosaic of the eight founding lines. These lines are generated using three generations of structured mating. |
selfingGenerations |
The number of selfing generations at the end of the pedigree. |
nSeeds |
The number of progeny taken from each intercrossing line, or from each initially generated line (if no intercrossing is specified). These lines are then selfed according to selfingGenerations. |
intercrossingGenerations |
The number of generations of random mating performed from the F1 generation. Population size is maintained at that specified by initialPopulationSize. |
An object of class detailedPedigree
representing the experimental design, suitable for simulation using simulateMPCross.
eightParentPedigreeSingleFunnel
, fourParentPedigreeSingleFunnel
, fourParentPedigreeRandomFunnels
, twoParentPedigree
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | pedigree <- eightParentPedigreeRandomFunnels(initialPopulationSize = 10,
selfingGenerations = 0, nSeeds = 1, intercrossingGenerations = 10)
#Generate map
map <- qtl::sim.map()
#Simulate data
cross <- simulateMPCross(map = map, pedigree = pedigree, mapFunction = haldane)
#Get out a list of funnels, which are rows of this matrix. For this pedigree, every
# funnel is a random ordering of 1:8.
getAllFunnels(cross)
#convert the pedigree to a graph
pedigreeAsGraph <- pedigreeToGraph(pedigree)
#Plot it
plot(pedigreeAsGraph)
#Write it to a file in DOT format
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.