nCaste {SIMplyBee} | R Documentation |
Returns the number of individuals of a caste in a colony
nCaste(x, caste = "all", simParamBee = NULL)
nQueens(x, simParamBee = NULL)
nFathers(x, simParamBee = NULL)
nWorkers(x, simParamBee = NULL)
nDrones(x, simParamBee = NULL)
nVirginQueens(x, simParamBee = NULL)
x |
|
caste |
character, "queen", "fathers", "workers", "drones", "virginQueens", or "all" |
simParamBee |
|
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"
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
nQueens
, nFathers
,
nVirginQueens
, nWorkers
, and
nDrones
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)