Level 2 function that resets the slots swarm, split, supersedure, collapsed, and production to FALSE in a Colony or MultiColony object. Useful at the end of a yearly cycle to reset the events, allowing the user to track new events in a new year.
resetEvents(x, collapse =NULL)
Arguments
x: Colony-class or MultiColony-class
collapse: logical, reset the collapse event (only sensible in setting up a new colony, which the default of NULL caters for; otherwise, a collapsed colony should be left collapsed forever, unless you force resetting this event with collapse = TRUE)
Returns
Colony-class or MultiColony-class with events reset
Examples
founderGenomes <- quickHaplo(nInd =5, nChr =1, segSites =50)SP <- SimParamBee$new(founderGenomes)basePop <- createVirginQueens(founderGenomes)drones <- createDrones(x = basePop[1], nInd =100)droneGroups <- pullDroneGroupsFromDCA(drones, n =5, nDrones = nFathersPoisson)# Create and cross Colony and MultiColony classcolony <- createColony(x = basePop[2])colony <- cross(colony, drones = droneGroups[[1]])apiary <- createMultiColony(basePop[4:5], n =2)apiary <- cross(apiary, drones = droneGroups[3:4])# Build-up - this sets Productive to TRUE(colony <- buildUp(colony, nWorkers =100))isProductive(colony)resetEvents(colony)apiary <- buildUp(apiary, nWorkers =100)isProductive(apiary)resetEvents(apiary)# Split - this sets Split to TRUEtmp <- split(colony)(split <- tmp$split)hasSplit(split)resetEvents(split)(remnant <- tmp$remnant)hasSplit(remnant)resetEvents(remnant)# Swarm - this sets Swarm to TRUEtmp <- swarm(colony)(swarm <- tmp$swarm)hasSwarmed(swarm)resetEvents(swarm)(remnant <- tmp$remnant)hasSwarmed(remnant)resetEvents(remnant)# Supersede - this sets Supersede to TRUE(tmp <- supersede(colony))hasSuperseded(tmp)resetEvents(tmp)# Collapse - this sets Collapse to TRUE(tmp <- collapse(colony))hasCollapsed(tmp)resetEvents(tmp)resetEvents(tmp, collapse =TRUE)# Same behaviour for MultiColony (example for the split)tmp <- split(apiary)(splits <- tmp$split)hasSplit(splits[[1]])resetEvents(splits)[[1]](remnants <- tmp$remnant)hasSplit(remnants[[1]])resetEvents(remnants)[[1]]