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

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

test <- 0
issues <- op_baseGetData("opasnet_base", "Op_en5811")
me <- "Urban area"
formula <- function(dependencies, me, ...) {
data <- issues[issues$Topic == me, ]

return(data)
}
ova <- new("ovariable", dependencies = data.frame(Name = "test"),
formula = formula
)
ova
EvalOutput(ova, me = "Transport")

equations <- tidy(op_baseGetData("opasnet_base", "Op_en5811"), objname = "equations") # This should be the page "City-level climate policy model/equations" but it does not exist yet.

equations

### This formula creates a causal model with linear dependencies between ovariables Policy.target, Action.on, ...
# The dependencies are defined in a data table equations.
formula <- function(dependencies, me, ...) {
	ComputeDependencies(dependencies, ...)

	# Find coefficients of equations that are relevant for this ovariable.

	# Take those equations that are defining the object at hand.
	coefficients <- equations[equations$Equation == equations[equations$Role == "Child" & equations$Step == me, "Equation"], ]

	coefficients <- new("ovariable",
		name = "coefficients",
		data = coefficients
	)
	
	out <- data.frame()
	for(i in dependencies$Name) {
		out <- rbind(out, get(i)@output * coefficients)
	}
	out <- tapply(out$Result, out["Equation"], sum)
	return(out)
}

# Define all ovariables needed.

issues

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

Action.on <- new("ovariable", 
	name = "Action.on", 
	data = tidy(issues[issues$Step == "Action on" , ], objname = "Action.on"),
	dependencies = data.frame(Name = c(
		"equation", 
		"Policy.target"
	)),
	formula = formula
)

Primary.impact.on <- new("ovariable", 
	name = "Primary.impact.on", 
	data = tidy(issues[issues$Step == "Primary impact on" , ], objname = "Primary impact on"),
	dependencies = data.frame(Name = c(
		"equation", 
		"Policy.target", 
		"Action.on"
	)),
	formula = formula
)

End.use.of.energy <- new("ovariable", 
	name = "End.use.of.energy", 
	data = tidy(issues[issues$Step == "End use of energy" , ], objname = "End.use.of.energy"),
	dependencies = data.frame(Name = c(
		"equation", 
		"Policy.target", 
		"Action.on", 
		"Primary.impact.on"
	)),
	formula = formula
)

Emission <- new("ovariable", 
	name = "Emission", 
	data = tidy(issues[issues$Step == "Emission" , ], objname = "Emission"),
	dependencies = data.frame(Name = c(
		"equation", 
		"Policy.target", 
		"Action.on", 
		"Primary.impact.on", 
		"End.use.of.energy"
	)),
	formula = formula
)

Time.budget <- new("ovariable", 
	name = "Time.budget", 
	data = tidy(issues[issues$Step == "Time budget" , ], objname = "Time.budget"),
	dependencies = data.frame(Name = c(
		"equation", 
		"Policy.target", 
		"Action.on", 
		"Primary.impact.on", 
		"End.use.of.energy", 
		"Emission"
	)),
	formula = formula
)

Exposure <- new("ovariable", 
	name = "Exposure", 
	data = tidy(issues[issues$Step == "Exposure" , ], objname = "Exposure"),
	dependencies = data.frame(Name = c(
		"equation", 
		"Policy.target", 
		"Action.on", 
		"Primary.impact.on", 
		"End.use.of.energy", 
		"Emission", 
		"Time.budget"
	)),
	formula = formula
)

Policy.outcome <- new("ovariable", 
	name = "Policy.outcome", 
	data = tidy(issues[issues$Step == "Policy.outcome" , ], objname = "Policy.outcome"),
	dependencies = data.frame(Name = c(
		"equation", 
		"Policy.target", 
		"Action.on", 
		"Primary.impact.on", 
		"End.use.of.energy", 
		"Emission", 
		"Time.budget", 
		"Exposure", 
		"Policy.outcome"
	)),
	formula = formula
)

# Evaluate all ovariables, starting from upstream.

EvalOutput(Policy.target, me = "Policy target")
EvalOutput(Action.on, me = "Action on")
EvalOutput(Primary.impact.on, me = "Primary.impact.on")
EvalOutput(End.use.of.energy, me = "End use of energy")
EvalOutput(Emission, me = "Emission")
EvalOutput(Time.budget, me = "Time.budget")
EvalOutput(Exposure, me = "Exposure")
EvalOutput(Policy.outcome, me = "Policy.outcome")