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

last_event

character, the last event of the colony TODO: revise https://github.com/HighlanderLab/SIMplyBee/issues/10

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)
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 is(colony1): object 'colony1' not found
isColony(colony1)
#> Error in is(x, class2 = "Colony"): object 'colony1' not found

apiary <- c(colony1, colony2)
#> Error in eval(expr, envir, enclos): object 'colony1' not found
is(apiary)
#> Error in is(apiary): object 'apiary' not found
isMultiColony(apiary)
#> Error in is(x, class2 = "MultiColony"): 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