Colony-class {SIMplyBee} | R Documentation |
An object holding honeybee colony
isColony(x)
## S4 method for signature 'Colony'
show(object)
## S4 method for signature 'ColonyOrNULL'
c(x, ...)
x |
|
object |
|
... |
|
Colony-class
or MultiColony-class
isColony()
: Test if x is a Colony class object
show(Colony)
: Show colony object
c(ColonyOrNULL)
: Combine multiple colony objects
id
integer, unique ID of the colony
location
numeric, location of the colony (x, y)
queen
Pop-class
, the queen of the colony (we use
its misc slot for queen's age and drones (fathers) she mated with)
virginQueens
Pop-class
, virgin queens of the
colony
drones
Pop-class
, drones of the colony
workers
Pop-class
, workers of the colony
split
logical, has colony split
swarm
logical, has colony swarmed
supersedure
logical, has colony superseded
collapse
logical, has colony collapsed
production
logical, is colony productive
misc
list, available for storing extra information about the colony
founderGenomes <- quickHaplo(nInd = 4, 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)
colony1 <- createColony(x = basePop[2])
colony1 <- cross(colony1, drones = droneGroups[[1]])
colony2 <- createColony(x = basePop[3])
colony2 <- cross(colony2, drones = droneGroups[[2]])
colony3 <- createColony(x = basePop[4])
colony3 <- cross(colony3, drones = droneGroups[[3]])
colony1
show(colony1)
is(colony1)
isColony(colony1)
apiary <- c(colony1, colony2)
is(apiary)
isMultiColony(apiary)
c(apiary, colony3)
c(colony3, apiary)