| Moderator:Nobody (see all) Click here to sign up. |
| This page is a stub. You may improve it into a full page. |
| Upload data
|
What are the health impacts of energy use in Kuopio?
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)
|
<mfanonymousfilelist></mfanonymousfilelist>