Difference between revisions of "Health impacts of energy consumption 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)