# Excerpt from http://en.opasnet.org/w/Health_impacts_of_fine_particles_in_Rauma
# (not evaluated)
# Paasto Emissions
Paasto <- new(
"ovariable",
name = "Paasto",
dependencies = data.frame(Name = "tieliikennepaastot", Key = "0194s0uuucjxq8Wi"),
formula = function(dependencies, ...) {
ComputeDependencies(dependencies, ...)
# Muutetaan paivapaasto vuosipaastoksi ja grammat tonneiksi
out <- tieliikennepaastot * 365 * 1E-6
return(out)
}
)
# Muita tarpeellisia arvoja Other important values
bg.mort <- 45182 / 5203826 # same values as used in PILTTI
## J. T. Tuomisto, A. Wilson, et al. Uncertainty in mortality response to
## airborne fine particulate matter... 2008
erf <- 0.0097
# unit: m^3 /ug
# Ovariablet
## Pitoisuudet Concentrations
Pitoisuus <- new(
"ovariable",
name = "Pitoisuus",
dependencies = data.frame(
Name = c("Paasto", "LO", "LA")
),
formula = function(dependencies, ...) {
ComputeDependencies(dependencies, ...)
temp <- GIS.Concentration.matrix(Paasto, LO, LA, ...)
return(temp)
}
)
## Altistuminen Exposure
Altistuminen <- new(
"ovariable",
name = "Altistuminen",
dependencies = data.frame(
Name = c("Pitoisuus", "LO", "LA")
),
formula = function(dependencies, ...) {
ComputeDependencies(dependencies, ...)
out <- GIS.Exposure(Pitoisuus, LO, LA, ...)
return(out)
}
)
Run the code above in your browser using DataLab