data-raw/create_darwinRules.r

  # sets up default rules for the darwin simulation study and exports as lazy data
create_darwinRules <- function(overwrite=F){
    # rule choices made by scientist
  darwinRules <- list()
    darwinRules$catchRule <- T
    darwinRules$biomassRule <-  T
    darwinRules$rangeOfBreakpoint <- c(0.5,1.5) # 0.5* distance from estimated point and origin to 1.5*distance from estimated point
    darwinRules$lastNPoints <- 10
    darwinRules$biomassBounds <- c(.5,2)
    darwinRules$catchBounds <- c(1,1)
    darwinRules$RickerRangeOfAlphas <- c(.2,5)
    darwinRules$BHRangeOfAlphas <- c(.2,5)
    darwinRules$SRType <- c(2,2,1,2,1,1,1,1,2,2) # 1 = asymptote , 2 = overcompensation
    darwinRules$otherFood <- seq(10000,60000,5000)

    usethis::use_data(darwinRules,overwrite = overwrite)

}
andybeet/hydramse documentation built on April 16, 2021, 5:23 a.m.