Health impacts of energy consumption in Kuopio

This page is a knowledge crystal of subtype variable. The page identifier is Op_en5809
Moderator:Nobody (see all) Click here to sign up.
This page is a stub. You may improve it into a full page.
Upload data {{#opasnet_base_link:Op_en5809}}

Question

What are the health impacts of energy use in Kuopio?

Rationale

Dependencies

Mortality

Mortality in Pohjois-Savo (per 100 000 person) at the 2009: 1092 [1]

Dose-response

• http://fi.opasnet.org/fi/Seturi/annosvaste
  • Outdoor PM: lung cancer, RR 1.04; 1.14; 1.23
  • Outdoor PM: cardiovascular (sydän- ja hengitystietaudit), RR 1.03; 1.09; 1.16
  • Outdoor PM: total mortality, RR 1.0014; 1.0062; 1.011

• Douglas W. Dockery, C. Arden Pope, Xiping Xu, John D. Spengler, James H. Ware, Martha E. Fay, Benjamin G. Ferris, Jr., and Frank E. Speizer. An Association between Air Pollution and Mortality in Six U.S. Cities.N Engl J Med 1993; 329:1753-1759, December 9, 1993.
  • Inhalable particles, RR 1.27
  • Fine particles, RR 1.26

• Pope CA III, Burnett RT, Thun MJ, Calle EE, Krewski D, Ito K, Thurston GD. Lung cancer, cardiopulmonary mortality, and long-term exposure to fine particulate air pollution. JAMA 2002;287:1132–1141. Adjusted mortality relative risk associated with a 10-μg/m3 change in fine particles measuring less than 2.5μm in diameter:
  • all-cause, RR 1.04 – 1.06
  • cardiopulmonary, RR 1.06 – 1.09
  • lung cancer, RR 1.08 – 1.14
  • all other cause, RR 1.01

• Laden F, Schwartz J, Speizer FE, Dockery DW. Reduction in fine particulate air pollution and mortality. American Journal of Respiratory and Critical CareMedicine, 2006; 173:667–672. Adjusted proportional hazard mortality rate ratios and 95% CI for a 10-μg/m3 increase in average ambiest PM2.5:
  • total mortality, RR 1.16 – 1.18
  • cardiovascular, RR 1.28
  • respiratory, RR 1.08 – 1.21
  • lung cancer, RR 1.20 – 1,27
  • other, RR 1.02 – 1.05

Formula

+ Show code- Hide code 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)

Related files

<mfanonymousfilelist></mfanonymousfilelist>