Skip to content

quota.prop share of catch vs harvest rate #256

@vbartolino

Description

@vbartolino

I run projections from a multifleet model as below.
Looking at the outcomes it seems that the parameter quota.prop sets the share of the harvest rate among the fleets rather than the share of the catch (quota) as I would have expected.
Any suggestion on how to set the proportion of the catch shared instead?

quota <- 
  gadget3:::g3_quota(
  gadget3:::g3_quota_hockeyfleet(
    predstocks = fleets,
    preystocks = list(mat_stock),
    btrigger = g3_parameterized("ven.hcr.btrigger"),
    harvest_rate = g3_parameterized("ven.hcr.harvest_rate"),
    stddev = g3_parameterized("ven.hcr.stddev")
  ),
  year_length = 1L, # quota is calculated every year
  start_step = 4L, # fishing starts at step4
  run_revstep = -2L # calc quota at step2
  )
comven12 %>% 
        g3a_predate(...,
                          catchability_f =
                              gadget3:::g3a_predate_catchability_project(
                                            quota,
                                            quota_prop = g3_parameterized("quota.prop", by_predator = TRUE, by_stock='species', value = 1),
                                            cons_step = g3_parameterized("quota.step", by_predator = TRUE, by_step = TRUE, by_stock='species',
                                                                          value = quote( step_lengths / 12.0 )),
                                  g3_timeareadata('comven12.catch.SWE',
                                                  comven12.catch.SWE %>% ...,
                                                  value_field = 'total_weight'))),

Running test projections like this

params.proj <- params.out %>%
  g3_init_val('project_years', 12) %>%
  ...
  g3_init_val('*.com_all_swe.quota.prop', value=0.2, lower=0, upper=2, optimise=FALSE) %>%
  g3_init_val('*.com_oth_fin.quota.prop', value=0.4, lower=0, upper=2, optimise=FALSE) %>%
  g3_init_val('*.com_pgt_fin.quota.prop', value=0.4, lower=0, upper=2, optimise=FALSE) %>%
  g3_init_val('*.hcr.harvest_rate',
              value=0.4, lower=0.01, upper=1e5, optimise=FALSE)

harvest rates (eg 2024)

>...
   year fleet        harv.rate
  <int> <chr>            <dbl>
1  2024 com_all_swe 0.0800    
2  2024 com_oth_fin 0.160     
3  2024 com_pgt_fin 0.160     
4  2024 survey_aco  0.00000167

catches (eg 2024)

> ...
# A tibble: 4 × 3
# Groups:   year [1]
   year predator    biomass_consumed
  <int> <chr>                  <dbl>
1  2024 com_all_swe        266368.  
2  2024 com_oth_fin         64736.  
3  2024 com_pgt_fin        214078.  
4  2024 survey_aco              3.99

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions