add_survey_fleet: Simple function to add survey fleets to existing fleet

In inspktrgadget/gadgetSim: Create Gadget replicates for use in simulation studies

Description

Adds any survey fleets to the existing fleet in a Gadget model

Usage

add_survey_fleet(model_fleet, survey_fleet)

Arguments

model_fleet	An object of class gadget_fleets or gadget_fleet, or, alternatively, of class gadget_model
survey_fleet	A list of class gadget_fleets

Value

The same object as model_fleet, but updated to include survey_fleet

Examples

path <- system.file(gad_mod_dir, package = "gadgetSim")
mod <- read_gadget_model(path = path)
survey_fleet <-
  make_gadget_fleet(spr = list(type = "totalfleet",
                               suitability = constant_suit_formula("spr",
                                                                   "cod",
                                                                   list(1)),
                               amount = data.frame(year = 1,
                                                   step = 1,
                                                   area = 1,
                                                   fleetname = "spr",
                                                   amount = 1)))
mod <- add_survey_fleet(mod, survey_fleet)

inspktrgadget/gadgetSim documentation built on May 10, 2019, 9:51 a.m.