Difference between revisions of "City-level climate policy model"
(→Formula) |
(→Formula: might work but no data to test) |
||
Line 91: | Line 91: | ||
EvalOutput(ova, me = "Transport") | EvalOutput(ova, me = "Transport") | ||
− | equations <- tidy(op_baseGetData("opasnet_base", " | + | 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, ... | ### This formula creates a causal model with linear dependencies between ovariables Policy.target, Action.on, ... | ||
Line 99: | Line 101: | ||
# Find coefficients of equations that are relevant for this ovariable. | # 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", | coefficients <- new("ovariable", | ||
name = "coefficients", | name = "coefficients", | ||
− | data = | + | data = coefficients |
) | ) | ||
Line 111: | Line 117: | ||
return(out) | return(out) | ||
} | } | ||
+ | |||
+ | # Define all ovariables needed. | ||
+ | |||
+ | issues | ||
Policy.targets <- new("ovariable", | Policy.targets <- new("ovariable", | ||
name = "Policy.targets", | name = "Policy.targets", | ||
− | data = tidy(issues[issues$ | + | data = tidy(issues[issues$Step == "Policy target" , ], objname = "Policy.target") |
) | ) | ||
Action.on <- new("ovariable", | Action.on <- new("ovariable", | ||
name = "Action.on", | name = "Action.on", | ||
− | data = tidy(issues[issues$ | + | data = tidy(issues[issues$Step == "Action on" , ], objname = "Action.on"), |
dependencies = data.frame(Name = c( | dependencies = data.frame(Name = c( | ||
"equation", | "equation", | ||
Line 129: | Line 139: | ||
Primary.impact.on <- new("ovariable", | Primary.impact.on <- new("ovariable", | ||
name = "Primary.impact.on", | name = "Primary.impact.on", | ||
− | data = tidy(issues[issues$ | + | data = tidy(issues[issues$Step == "Primary impact on" , ], objname = "Primary impact on"), |
dependencies = data.frame(Name = c( | dependencies = data.frame(Name = c( | ||
"equation", | "equation", | ||
Line 140: | Line 150: | ||
End.use.of.energy <- new("ovariable", | End.use.of.energy <- new("ovariable", | ||
name = "End.use.of.energy", | name = "End.use.of.energy", | ||
− | data = tidy(issues[issues$ | + | data = tidy(issues[issues$Step == "End use of energy" , ], objname = "End.use.of.energy"), |
dependencies = data.frame(Name = c( | dependencies = data.frame(Name = c( | ||
"equation", | "equation", | ||
Line 152: | Line 162: | ||
Emission <- new("ovariable", | Emission <- new("ovariable", | ||
name = "Emission", | name = "Emission", | ||
− | data = tidy(issues[issues$ | + | data = tidy(issues[issues$Step == "Emission" , ], objname = "Emission"), |
dependencies = data.frame(Name = c( | dependencies = data.frame(Name = c( | ||
"equation", | "equation", | ||
Line 165: | Line 175: | ||
Time.budget <- new("ovariable", | Time.budget <- new("ovariable", | ||
name = "Time.budget", | name = "Time.budget", | ||
− | data = tidy(issues[issues$ | + | data = tidy(issues[issues$Step == "Time budget" , ], objname = "Time.budget"), |
dependencies = data.frame(Name = c( | dependencies = data.frame(Name = c( | ||
"equation", | "equation", | ||
Line 179: | Line 189: | ||
Exposure <- new("ovariable", | Exposure <- new("ovariable", | ||
name = "Exposure", | name = "Exposure", | ||
− | data = tidy(issues[issues$ | + | data = tidy(issues[issues$Step == "Exposure" , ], objname = "Exposure"), |
dependencies = data.frame(Name = c( | dependencies = data.frame(Name = c( | ||
"equation", | "equation", | ||
Line 194: | Line 204: | ||
Policy.outcome <- new("ovariable", | Policy.outcome <- new("ovariable", | ||
name = "Policy.outcome", | name = "Policy.outcome", | ||
− | data = tidy(issues[issues$ | + | data = tidy(issues[issues$Step == "Policy.outcome" , ], objname = "Policy.outcome"), |
dependencies = data.frame(Name = c( | dependencies = data.frame(Name = c( | ||
"equation", | "equation", | ||
Line 208: | Line 218: | ||
formula = formula | 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") | ||
</rcode> | </rcode> |
Revision as of 09:28, 13 September 2012
This page is a assessment.
The page identifier is Op_en5811 |
---|
Moderator:Jouni (see all) |
This page is a stub. You may improve it into a full page, and then a rating bar will appear here. |
Upload data
|
Contents
Scope
Question
Boundaries
Scenarios
Intended users
Participants
Answer
Rationale
Dependencies
This is a generic table format and assessment structure for most inputs of the model. This is based on File:UrgencheConceptualModel.xlsx
We need too tables, one with all issues listed (with estimates where there is direct data), and another for equations that connect issues. The assessment has seven steps:
- Policy target
- Action on
- Primary impact on
- End use of energy
- Emission
- Time budget
- Exposure
- Policy outcome
This table contains the issues:
Obs | Step | Topic | Issue | Unit | Result | Description |
---|---|---|---|---|---|---|
1 | Policy target | Urban area | Urban density | m2/km2 | floor space | |
2 | Policy target | Urban area | Urban plan/zoning | |||
3 | Policy target | Urban area | Street network | lane-km(/km2) | ||
4 | Policy target | Urban area | Rail network | rail-km(/km2) | ||
5 | Policy target | Urban area | Walk/bike network | km(/km2) | ||
6 | Policy target | Transport | Local person transport | total person-km/a | ||
7 | Policy target | Transport | (intercity personal transport) | |||
8 | Policy target | Transport | Local transport of goods | |||
9 | Policy target | Transport | (long range goods transport) | |||
10 | Policy target | Transport | (street) transport electrification | % person-km | ||
11 | Etc |
The connections between items is created using this kind of a table (here a wiki table format is used, but actually it should be a data table on a page called City-level climate policy model/equations). Proximity to work and school is used as an example. All causal dependencies are interpreted in the following way, where each equation defines one child:
Failed to parse (Missing <code>texvc</code> executable. Please see math/README to configure.): Child = \Sigma Parent_i * Coefficient_i
Equation | Step | Topic | Issue | Role | Coefficient | Description |
---|---|---|---|---|---|---|
1 | Impact on | Urban environment functionality | Proximity to work and school | Child | ||
1 | Action on | Urban development | Population density | Parent | 1 | |
1 | Action on | Urban development | Land use efficiency | Parent | 2.2 | |
1 | Policy target | Urban area | Urban plan/zoning | Parent | 3.6 |
Formula
See also
Keywords
References
Related files
<mfanonymousfilelist></mfanonymousfilelist>