Training costs

This page is a knowledge crystal of subtype variable. The page identifier is Op_en5871
Moderator:Jouni (see all)
Upload data {{#opasnet_base_link:Op_en5871}}

Training costs are an example of a cost variable in an assessment.

Question

What are the costs in the training assessment?

Answer

+ Show code- Hide code library(OpasnetUtils) library(ggplot2) objects.latest("Op_en5871", code_name = "initiate") # [[Training assessment]] costs costs <- EvalOutput(costs) ggplot(costs@output, aes(x = Year, weight = costsResult, fill = Expenditure)) + geom_bar(position = "dodge") + theme_grey(base_size = 24)

Rationale

Data

Training costs(€)

Obs	Payer	Expenditure	Year	Result	Description
1	Factory	Cleaning equipment use	2012	20000-22000
2	Factory	Cleaning equipment use	2020	22000-24000
3	Society	Health promotion campaign	2012	10000
4	Society	Health promotion campaign	2020	10000

Calculations

+ Show code- Hide code library(OpasnetUtils) costs <- Ovariable("costs", dependencies = data.frame( Name = c("health_impact", "unitcost"), Ident = c("Op_en5675/initiate", NA) ), formula = function(...) { fixedcosts <- Ovariable("fixedcosts", ddata = "Op_en5871") # [[Training costs]] socialcosts <- unitcost * health_impact * Ovariable(output = data.frame( Payer = c("Society", "Factory"), Result = c(1, 0) ), marginal = c(TRUE, FALSE)) totcosts <- fixedcosts + socialcosts return(totcosts) } ) objects.store(costs) cat("Ovariable costs saved.\n")