1d:T7b3,# Supersede Level 2 function that supersedes a Colony or MultiColony object - an event where the queen dies. The workers and drones stay unchanged, but workers raise virgin queens, of which only one prevails. ```r supersede(x, year = NULL, nVirginQueens = NULL, simParamBee = NULL, ...) ``` ## Arguments - `x`: `Colony-class` or `MultiColony-class` - `year`: numeric, year of birth for virgin queens - `nVirginQueens`: integer, the number of virgin queens to be created in the colony; of these one is randomly selected as the new virgin queen of the remnant colony. If `NULL`, the value from `simParamBee$nVirginQueens` is used - `simParamBee`: `SimParamBee`, global simulation parameters - `...`: additional arguments passed to `nVirginQueens` when this argument is a function ## Returns `Colony-class` or `MultiColony-class` with the supersede event set to `TRUE` ## Examples ```r founderGenomes <- quickHaplo(nInd = 10, nChr = 1, segSites = 50) SP <- SimParamBee$new(founderGenomes) basePop <- createVirginQueens(founderGenomes) drones <- createDrones(basePop[1], n = 1000) droneGroups <- pullDroneGroupsFromDCA(drones, n = 10, nDrones = 10) # Create Colony and MultiColony class colony <- createColony(x = basePop[2]) colony <- cross(colony, drones = droneGroups[[1]]) (colony <- buildUp(colony, nWorkers = 100)) apiary <- createMultiColony(basePop[3:8], n = 6) apiary <- cross(apiary, drones = droneGroups[2:7]) apiary <- buildUp(apiary, nWorkers = 100) a colony isQueenPresent(colony) isVirginQueenPresent(colony) colony <- supersede(colony) isQueenPresent(colony) isVirginQueenPresent(colony) all colonies in the apiary isQueenPresent(colony) isVirginQueenPresent(colony) apiary1 <- supersede(apiary) isQueenPresent(colony) isVirginQueenPresent(colony) # Sample colonies from the apiary that will supersede (sample with probability of 0.2) tmp <- pullColonies(apiary, p = 0.2) # Swarm only the pulled colonies (supersede(tmp$pulled)) ```

supersede function