A function that strips out a Stock, Fleet, Obs, or Imp object from a complete OM object. Mainly used for internal functions.
SubOM(OM, Sub = c("Stock", "Fleet", "Obs", "Imp"))
An operating model object (class OM)
A character string specifying what object type to strip out "Stock", "Fleet", "Obs", or "Imp"
An object of class Stock, Fleet, Obs, or Imp
Stock <- SubOM(testOM, "Stock")
class(Stock)
#> [1] "Stock"
#> attr(,"package")
#> [1] "MSEtool"