calcnetvalue: Calculate net value

Description Usage Arguments Examples

Description

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

Usage

1
calcnetvalue(catch_summary, Status_quo_profitability, fish_operating_cost_ratio)

Arguments

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

Examples

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)

remi-daigle/BESTMPA documentation built on May 27, 2019, 4:55 a.m.