Difference between revisions of "City-level climate policy model"

library(OpasnetUtils)
library(xtable)
library(ggplot2)

issues <- op_baseGetData("opasnet_base", "Op_en5811")
equations <- tidy(op_baseGetData("opasnet_base", "Op_enXXXX"), objname = "equations")

formula <- function(me, dependencies, ...) {
	ComputeDependencies(dependencies, ...)
	coefficients <- new("ovariable",
		name = "coefficients",
		data = equations[equations$Role == "Child" & equations$Issue == me, ]
	)
	out <- issues * coefficient
	return(out)
	
	
}

Policy.targets <- new("ovariable", 
	name = "Policy.targets", 
	data = tidy(issues[issues$Table == "Policy targets" , ], objname = "Policy.targets")
)

Actions.on <- new("ovariable", 
	name = "Actions.on", 
	data = tidy(issues[issues$Table == "Actions on" , ], objname = "Actions.on"),
	dependencies = data.frame(Name = c("equations", "Policy.targets", "Actions.on", "Primary.impacts.on", "End.uses.of.energy", "Emissions", "Time.budgets", "Exposures", "Policy.outcomes")),
	formula = formula
)

c("Policy.targets", "Actions.on", "Primary.impacts.on", "End.uses.of.energy", "Emissions", "Time.budgets", "Exposures", "Policy.outcomes")