gadget-framework / gadget3

TMB-based gadget implemtation
GNU General Public License v2.0
8 stars 6 forks source link

Binary suitability for tagging #94

Open lentinj opened 1 year ago

lentinj commented 1 year ago

Tagging suitability will likely be a binary yes/no, aiming for a handful of length groups.A lengthgroup vector of 0/1 will probably be enough, e.g.

prey_a_tagging_suit <- ifelse(g3_stock_def(prey_a, 'midlen') < 5 & g3_stock_def(prey_a, 'midlen') >= 2, 1, 0)
 . . .
actions <- list(
    # NB: If g3_tag() is used in the stock, initialconditions/renewal
    # will only renew into tag == 0 (i.e. untagged)
    g3a_predate_tagrelease(
        # Setup as-per g3a_predate_fleet
        fleet_a,
        list(prey_a),
        suitabilities = list(prey_a = ~prey_a_tagging_suit),
        catchability_f = g3a_predate_catchability_numberfleet(~100),