nCaste {SIMplyBee} | R Documentation |
Level 0 function that returns the number of individuals of a caste in a colony
Description
Returns the number of individuals of a caste in a colony
Usage
nCaste(x, caste = "all")
nQueens(x)
nFathers(x)
nWorkers(x)
nDrones(x)
nVirginQueens(x)
Arguments
x |
|
caste |
character, "queen", "fathers", "workers", "drones", "virginQueens", or "all" |
Value
when x
is Colony-class
return is integer for
caste != "all"
or list for caste == "all"
with nodes named
by caste; when x
is MultiColony-class
return is named
integer for caste != "all"
or named list of lists for
caste == "all"
Functions
-
nQueens()
: Number of queens in a colony -
nFathers()
: Number of fathers in a colony -
nWorkers()
: Number of workers in a colony -
nDrones()
: Number of drones in a colony -
nVirginQueens()
: Number of virgin queens in a colony
See Also
nQueens
, nFathers
,
nVirginQueens
, nWorkers
, and
nDrones
Examples
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]])
colony <- buildUp(x = colony, nWorkers = 100, nDrones = 10)
colony <- addVirginQueens(x = colony, nInd = 3)
apiary <- createMultiColony(basePop[3:4], n = 2)
apiary <- cross(apiary, drones = droneGroups[c(2, 3)])
apiary <- buildUp(x = apiary, nWorkers = 100, nDrones = 10)
apiary <- addVirginQueens(x = apiary, nInd = 3)
# Check caste members
nCaste(colony, caste = "queen")
nCaste(colony, caste = "fathers")
nCaste(colony, caste = "virginQueens")
nCaste(colony, caste = "workers")
nCaste(colony, caste = "drones")
nCaste(colony, caste = "all")
nCaste(apiary, caste = "queen")
nCaste(apiary, caste = "fathers")
nCaste(apiary, caste = "virginQueens")
nCaste(apiary, caste = "workers")
nCaste(apiary, caste = "drones")
nCaste(apiary, caste = "all")
# Check number of queens
nQueens(colony)
nQueens(apiary)
apiary <- removeQueen(apiary)
nQueens(apiary)
# Check number of fathers
nFathers(colony)
nFathers(apiary)
# Check number of workers
nWorkers(colony)
nWorkers(apiary)
# Check number of drones
nDrones(colony)
nDrones(apiary)
# Check number of virgin queens
nVirginQueens(colony)
nVirginQueens(apiary)
[Package SIMplyBee version 0.3.0 Index]