Skip to contents

Barrier Cost Calculation

process_cost_calculation.Rd

Calculate cost of supplementary barriers

Usage

process_cost_calculation(scenario, membership_fee, charge, initialSituation)

Arguments

scenario

data.frame scenario with irrigation_need_m3an column obtained from irrigation_need_calculation function

membership_fee

numeric annual membership fee

charge

numeric water charge

initialSituation

boolean TRUE to simulate initial simulation cost, FALSE to simulate supplementary process cost

Value

scenario_updated

Examples

scenario_apprentissage <- create_scenario(
  system.file("input_1culture_2pop.xlsx", package = "ambre"))
irrigation_need <- irrigation_need_calculation(scenario_apprentissage)
process_cost_calculation(scenario = irrigation_need,
                         membership_fee = 200,
                         charge = 0.1,
                         initialSituation = TRUE)
#> # A tibble: 2 × 30
#>   CropName   Area PopulationName    nb_population PathName     STEPtreatmentName
#>   <chr>     <dbl> <chr>                     <dbl> <chr>        <chr>            
#> 1 Tomato       10 Irrigation staff              1 Ingestion o… Q.1 - Activated …
#> 2 Corn seed    35 Maintenance staff             1 Ingestion f… Q.1 - Activated …
#> # ℹ 24 more variables: CollectiveTreatmentName <chr>, InitialProcessName <chr>,
#> #   SupplementaryProcessName <chr>, nb_day_decay <dbl>, config <list>,
#> #   CropID <dbl>, CropHeight <dbl>, PopulationID <dbl>, PathID <dbl>,
#> #   MatrixID <dbl>, STEPtreatmentID <list>, CollectiveTreatmentID <list>,
#> #   InitialProcessID <list>, SupplementaryProcessID <list>,
#> #   InitialTrainName <list>, InitialTrainID <list>,
#> #   SupplementaryTrainName <list>, SupplementaryTrainID <list>, …


process_cost_calculation(scenario = irrigation_need,
                         membership_fee = 200,
                         charge = 0.1,
                         initialSituation = FALSE)
#> # A tibble: 2 × 30
#>   CropName   Area PopulationName    nb_population PathName     STEPtreatmentName
#>   <chr>     <dbl> <chr>                     <dbl> <chr>        <chr>            
#> 1 Tomato       10 Irrigation staff              1 Ingestion o… Q.1 - Activated …
#> 2 Corn seed    35 Maintenance staff             1 Ingestion f… Q.1 - Activated …
#> # ℹ 24 more variables: CollectiveTreatmentName <chr>, InitialProcessName <chr>,
#> #   SupplementaryProcessName <chr>, nb_day_decay <dbl>, config <list>,
#> #   CropID <dbl>, CropHeight <dbl>, PopulationID <dbl>, PathID <dbl>,
#> #   MatrixID <dbl>, STEPtreatmentID <list>, CollectiveTreatmentID <list>,
#> #   InitialProcessID <list>, SupplementaryProcessID <list>,
#> #   InitialTrainName <list>, InitialTrainID <list>,
#> #   SupplementaryTrainName <list>, SupplementaryTrainID <list>, …