Health impacts of energy consumption in Kuopio: Difference between revisions
Jump to navigation
Jump to search
(placeholder) |
(→Formula: placeholder for formula) |
||
| Line 17: | Line 17: | ||
=== Dependencies === | === Dependencies === | ||
=== Formula === | ===Formula=== | ||
<rcode | |||
label="Initiate functions" | |||
graphics="1" | |||
> | |||
library(OpasnetUtils) | |||
library(xtable) | |||
library(ggplot2) | |||
breathing.rate <- 20 # m3 /d | |||
activity <- 0 | |||
emission.factor <- 0 | |||
intake.fraction <- 0 | |||
breathing.rate <- 0 | |||
population.size <- 0 | |||
exposure.response.function <- 0 | |||
disease.burden <- 0 | |||
dependencies <- data.frame( | |||
Name = c( | |||
"activity", | |||
"emission.factor", | |||
"intake.fraction", | |||
"breathing.rate", | |||
"population.size", | |||
"disease.burden", | |||
"exposure.response.function" | |||
), | |||
Key = c("muRtYjhkphoNPQJI") | |||
) | |||
formula <- function(dependencies, ...) { | |||
ComputeDependencies(dependencies, ...) | |||
out <- 0 | |||
return(out) | |||
} | |||
data <- tidy(op_baseGetData("opasnet_base", "Op_en5675"), "health.impact") # This data comes from [[Training assessment]]; should be changed. | |||
health.impact <- new("ovariable", | |||
name = "health.impact", | |||
formula = formula, | |||
dependencies = dependencies, | |||
data = data | |||
) | |||
out <- EvalOutput(health.impact, N = 10) | |||
print(xtable(out@output), type = "html") | |||
objects.put(health.impact) | |||
</rcode> | |||
==See also== | ==See also== | ||
Revision as of 08:25, 12 September 2012
| Moderator:Nobody (see all) Click here to sign up. |
| This page is a stub. You may improve it into a full page. |
| Upload data
|
Question
What are the health impacts of energy use in Kuopio?
Answer
Rationale
Dependencies
Formula
See also
Keywords
References
Related files
<mfanonymousfilelist></mfanonymousfilelist>