1d:T7d4,# Honeybee colony An object holding honeybee colony class ```r isColony(x) ## S4 method for signature 'Colony' show(object) ## S4 method for signature 'ColonyOrNULL' c(x, ...) ``` ## Arguments - `x`: `Colony-class` - `object`: `Colony-class` - `...`: `NULL`, `Colony-class`, or `MultiColony-class` ## Returns `Colony-class` or `MultiColony-class` ## Functions * `isColony()`: Test if x is a Colony class object * `show(Colony)`: Show colony object * `c(ColonyOrNULL)`: Combine multiple colony objects ## Slots - **`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 ## Examples ```r 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) ``` ## See Also `createColony`

Colony-class function