Description Usage Arguments Examples
Calculates the net value of the model output (This function cannot work without model output). Uses the Status_quo_profitability
ratio and the weighted mean of the distance travelled to get a fish (weighted by the catch gross value), and the fish_operating_cost_ratio
to determine the relative profitability of scenarios
1 | calcnetvalue(catch_summary, Status_quo_profitability, fish_operating_cost_ratio)
|
catch_summary |
A merged dataframe of all the 'kg' output files |
Status_quo_profitability |
The ratio of the landed value of the catch to the total operating costs for the Mixed Fishery |
fish_operating_cost_ratio |
The ratio of operating cost that are variable with distance (labour and fuel) to the total operating costs for the Mixed Fishery |
1 2 3 | filenames <- list.files(results_folder,pattern="kg_")
catch_summary <- rbindlist(lapply(filenames,processkg,results_folder,distance,fish_landed_value))
catch_summary <- calcnetvalue(catch_summary,Status_quo_profitability,fish_operating_cost_ratio)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.