calc_probs: Calculate Probabilities Calculate probabilites based on type...
In peterkuriyama/ch4:

Calculate Probabilities Calculate probabilites based on type of profits and type of catch

1
2
3

calc_probs(prof_type = "avg_profit_fuel_only", catch_type,
  objective = "difference", in_cp_name = "poss_clusts1",
  poss_clusts1 = poss_clusts)

`prof_type`	Type of profit; can be "avg_haul_profit" or "avg_profit_fuel_only"
`catch_type`	Type of catch; can be "type_clust_catch", "type_clust_perc", or "type_prop_hauls"
`objective`	Objective; to catch the "highest" of target species? "lowest" of weak stock species? Or area with the biggest "difference" between target and weaks?
`in_cp_name`	Character string of input to calc_probs name
`poss_clusts1`	Input to function; defaults to poss_clusts, called in the parent environment

f1 <- find_best_clusts(catch_type = "type_clust_perc", objective = "highest")
f2 <- find_best_clusts(catch_type = "type_prop_hauls", objective = "highest")
f3 <- find_best_clusts(catch_type = "type_clust_perc", objective = "lowest")
f4 <- find_best_clusts(catch_type = "type_prop_hauls", objective = "lowest")
#Results might be slightly different for different columns
cbind(f3$unq_clust, f4$unq_clust)