View source: R/Functions_L1_Pop.R
createDCA | R Documentation |
Level 1 function that creates a population of drones from a Colony or MultiColony. Such a population is often referred to as a drone congregation area (DCA).
createDCA(x, nInd = NULL, removeFathers = TRUE, simParamBee = NULL)
x |
|
nInd |
numeric, number of random drones to pull from each colony,
if |
removeFathers |
logical, removes |
simParamBee |
|
In reality, drones leave the colony to mate. They die after that.
In this function we only get a copy of drones from x
, for
computational efficiency and ease of use. However, any mating will change
the caste of drones to fathers, and they won't be available for future
matings (see cross
). Not unless
removeFathers = FALSE
.
Pop-class
founderGenomes <- quickHaplo(nInd = 8, nChr = 1, segSites = 100)
SP <- SimParamBee$new(founderGenomes)
basePop <- createVirginQueens(founderGenomes)
drones <- createDrones(x = basePop[1], nInd = 1000)
droneGroups <- pullDroneGroupsFromDCA(drones, n = 10, nDrones = nFathersPoisson)
# Create a Colony and a MultiColony class
colony <- createColony(x = basePop[2])
colony <- cross(colony, drones = droneGroups[[1]])
apiary <- createMultiColony(basePop[3:4], n = 2)
apiary <- cross(apiary, drones = droneGroups[c(2, 3)])
colony <- addDrones(colony, nInd = 10)
createDCA(colony)
createDCA(colony, nInd = 10)@id
apiary <- addDrones(apiary)
createDCA(apiary)
createDCA(apiary, nInd = 10)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.