An example of an operating model for a short-lived (monthly time steps) semelparous species.
This OM is for a data-limited fishery, where the OM is conditioned with expert judgement and values from the literature …
This is an example …
Create the OM Object
OctopusOM <- OM('Octopus',
Author='Adrian Hordyk',
Email='adrian@bluematterscience.com',
nYear=10, # 10 historical years
pYear=10, # 10 projection years
Seasons = 12, # monthly time steps
nSim=20)
Years(OctopusOM, 'Historical') |> head()
[1] 2016.000 2016.085 2016.164 2016.249 2016.331 2016.415
Years(OctopusOM, 'Projection') |> tail()
[1] 2035.496 2035.581 2035.666 2035.748 2035.833 2035.915
Construct the Stock Object
stock <- Stock('Octopus',
Species='Octopus sp')
Ages(stock) <- Ages(MaxAge=14,
Units='month',
PlusGroup = FALSE)