Binary suitability for tagging

[lentinj]

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),

• Alter the example to show how you might insert that
• Can we make a g3_suitability_minmax(min_len, max_len) to make the process a bit easier? Might require some g3_native magic, since there's no direct translation for ifelse().