Honeybee colony

An object holding honeybee colony

isColony(x)

# S4 method for Colony
show(object)

# S4 method for ColonyOrNULL
c(x, ...)

Arguments

x

Colony-class

object

Colony-class

...

NULL, Colony-class, or MultiColony-class

Value

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

See also

createColony

Examples

founderGenomes <- quickHaplo(nInd = 4, nChr = 1, segSites = 100)
SP <- SimParamBee$new(founderGenomes)
SP$nThreads = 1L
basePop <- createVirginQueens(founderGenomes)
#> Error in get(x = "SP", envir = .GlobalEnv): object 'SP' not found

drones <- createDrones(x = basePop[1], nInd = 1000)
#> Error in get(x = "SP", envir = .GlobalEnv): object 'SP' not found
droneGroups <- pullDroneGroupsFromDCA(drones, n = 10, nDrones = nFathersPoisson)
#> Error in get(x = "SP", envir = .GlobalEnv): object 'SP' not found
colony1 <- createColony(x = basePop[2])
#> Error in get(x = "SP", envir = .GlobalEnv): object 'SP' not found
colony1 <- cross(colony1, drones = droneGroups[[1]])
#> Error in get(x = "SP", envir = .GlobalEnv): object 'SP' not found
colony2 <- createColony(x = basePop[3])
#> Error in get(x = "SP", envir = .GlobalEnv): object 'SP' not found
colony2 <- cross(colony2, drones = droneGroups[[2]])
#> Error in get(x = "SP", envir = .GlobalEnv): object 'SP' not found
colony3 <- createColony(x = basePop[4])
#> Error in get(x = "SP", envir = .GlobalEnv): object 'SP' not found
colony3 <- cross(colony3, drones = droneGroups[[3]])
#> Error in get(x = "SP", envir = .GlobalEnv): object 'SP' not found

colony1
#> Error in eval(expr, envir, enclos): object 'colony1' not found
show(colony1)
#> Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'show': object 'colony1' not found
is(colony1)
#> Error in eval(expr, envir, enclos): object 'colony1' not found
isColony(colony1)
#> Error in eval(expr, envir, enclos): object 'colony1' not found

apiary <- c(colony1, colony2)
#> Error in eval(expr, envir, enclos): object 'colony1' not found
is(apiary)
#> Error in eval(expr, envir, enclos): object 'apiary' not found
isMultiColony(apiary)
#> Error in eval(expr, envir, enclos): object 'apiary' not found

c(apiary, colony3)
#> Error in eval(expr, envir, enclos): object 'apiary' not found
c(colony3, apiary)
#> Error in eval(expr, envir, enclos): object 'colony3' not found