Pori

Tämä sivu on tietokide alatyypiltään muuttuja. Sivutunniste: Op_fi3357
Moderaattori:Jouni (katso kaikki) Sivun edistyminen: Raakile. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3357}}

Kysymys

Miten terveysvaikutusarviointi pitäisi huomioida kaupunkitason päätöksenteossa Porissa? Mitä kehityshankkeita on meneillään?

Perustelut

• Pori: kokoukset
• Terveysvaikutusten arviointi käyttöön päätöksenteon tueksi ja työvälineeksi Porin kaupungissa, valtuustoaloite, Päivi Kolehmainen 3.12.2012
• Porin kaupunginvaltuuston kokous 21.1.2013, esityslistalla terveysvaikutusten arviointi [1]
• Terveysvaikutusten arviointi Salossa (Stakes 2007)

Riippuvuudet

Tärkeitä henkilöitä Porissa:

• Päivi Kolehmainen, kaupunginvaltuutettu
• Timo Aro, kehittämispäällikkö
• Sirpa Kynäslahti, hyvinvointikoordinaattori

Matkakeskuksen pienhiukkaspäästöt

Tämä sivu on tietokide alatyypiltään muuttuja. Sivutunniste: Op_fi3357
Moderaattori:Jouni (katso kaikki) Sivun edistyminen: Luonnos. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3357}}

<googlemap version="0.9" lat="61.4833" lon="21.800051" type="map" zoom="14"> (L) 61.481462, 21.798688, Oy Matkahuolto Ab Itsenäisyydenkatu 44 Pori, (R) 61.477491, 21.787756, Rautatieasema Pori Finland , </googlemap>

Kysymys

Kuinka suuret ovat pienhiukkaspäästöt Porissa matkakeskukseen liittyen, ja mitä terveysvaikutuksia niillä on?

Vastaus

Ylimääräisiä kuolemantapauksia vuodessa

Vaihtoehto	Tulos
Matkakeskus keskustassa
Matkakeskus rautatieasemalla

Perustelut

⇤#: Käytetty leviämis- ja altistumalli on tarkkuudeltaan vain yksi kilometri. Kilometriresoluutio on riittämätön. Malli antaa vain karkeita arvioita ja luultavasti vähättelee vaihtoehtojen eroja ja kokonaisvaikutuksia. --Jouni Tuomisto 25. lokakuuta 2012 kello 00.24 (EEST)

⇤#: Totta on, että malli vähättelee muutaman sadan metrin säteellä päästölähteestä tapahtuvaa altistumista. Kuitenkin virheen suunta on tiedossa, ja se vähättelee terveyshaittoja tilanteissa, jotka sisältävät enemmän liikennettä tiheämmin asutuilla alueilla. --Jouni Tuomisto 13. maaliskuuta 2013 kello 04.27 (EET)

Laskenta

HUOM! Tällä hetkellä malli laskee ainoastaan pienhiukkaspäästön leviämisen 10-15 km:n säteellä olevaan väestöön. Mallia päivitetään jatkuvasti.

Iteraatioiden määrä: Näytä välivaiheet?: Kyllä Ei + Näytä koodi- Piilota koodi library(OpasnetUtils) library(ggplot2) library(xtable) library(OpasnetUtilsExt) library(rgdal) library(maptools) library(RColorBrewer) library(classInt) library(raster) par(mfrow=c(6,1), mar=c(3,1,0,1), cex=1.5) # Graphics settings Päästö <- 1 # Määritellään nämä mallin vuoksi, vaikka todellinen laskenta tehdäänkin tilpäisillä muuttujilla. LA <- 61.477491 LO <- 21.787756 objects.latest("Op_fi3719", "alustus") # Päästöjen, leviämisen, altistumisen ja terveysvaikutuksen oliot haetaan. # suorite haetaan erikseen, koska on tapauskohtainen tieto. suorite <- new("ovariable", name = "suorite", data = {temp <- tidy(opbase.data("Op_fi3357")) # Luodaan tilapäiset ovariablet, jotta mahdollinen probabilistisuus menee oikein. lm <- new("ovariable", name = "lm", data = { temp2 <- temp[colnames(temp) != "Pituus"] colnames(temp2)[colnames(temp2) == "Liikennemäärä"] <- "Result" temp2 }) pi <- new("ovariable", name = "pi", data = { temp3 <- temp[colnames(temp) != "Liikennemäärä"] colnames(temp3)[colnames(temp3) == "Pituus"] <- "Result" temp3 }) data <- EvalOutput(lm, N = N) * EvalOutput(pi, N = N) * 365 * 1E-6 # Muutetaan d -> a ja km -> Gm data@output[!colnames(data@output) %in% c("lmSource", "lmResult", "piSource", "piResult", "Description", "Unit")] } ) Tulos <- EvalOutput(Tulos, verbose = FALSE) if(intermediates) { cat("Liikennesuorite.\n") oprint(suorite@data) cat("Kokonaispienhiukkaspäästöt eri pisteistä.\n") oprint(tieliikennepäästöt) cat("Yksityiskohtaiset päästötiedot.\n") oprint(temp) cat("Yksityiskohtainen lopputulos.\n") oprint(Tulos) } cat("Pienhiukkasten aiheuttamia ylimääräisiä kuolemantapauksia vuodessa.\n") ggplot(Tulos@output, aes(x = TerveysvaikutuksetResult, fill = Vaihtoehto)) + geom_density(alpha = 0.2) + theme_grey(base_size = 24) + labs(axis.text.x = "Pienhiukkasten aiheuttamia kuolemia vuodessa") oprint(Tulos@output[Tulos@output$Iter == 1, ], digits = 4) objects.latest("Op_fi3718", "initiate") # Pitoisuuskartan piirtämisfunktio concmap(Pitoisuus)

Ovariablet on pääasiassa määritelty ja kuvattu sivulla Pienhiukkasvaikutukset:

• Terveysvaikutukset: syötteenä Altistuminen * erf * bg.mort
  • erf: vakio, annetaan koodissa
  • bg.mort: vakio, annetaan koodissa
  • Altistuminen: syötteenä Pitoisuus, LO, LA
    • Käytetään funktiota GIS.Exposure(Pitoisuus, LO, LA, ...)
    • LO ja LA: saadaan muuttujan Pitoisuus sarakkeista LO ja LA.
    • Pitoisuus: syötteenä Päästö, LO, LA.
      • LO ja LA: saadaan muuttujan Päästö sarakkeista LO ja LA.
      • Käytetään funktiota GIS.Concentration.matrix(Päästö, LO, LA, ...)
      • Päästö: syötteenä Tieliikennepäästöt (tässä kohdassa lähinnä yksikköskaalausta).
        • Tieliikennepäästöt: käyttää metodia Tieliikennepäästöt ja muuttujaa suorite.
          • suorite: luodaan tämän sivun (Pienhiukkaspäästöt Raumalla) datataulusta.

Data

Ero sivun ”Pori” versioiden välillä(-)

Obs	Vaihtoehto	Ajoneuvo	Ajo	Kuormitusaste	LA	LO	Unit	Liikennemäärä	Pituus	Description
1	Matkakeskus linja-autoasemalla	Täysperävaunuyhdistelmä	Katuajo	70% kuorma	61.481462	22.798688	kpl-km /d	100	2	Päästöpiste oletetaan nykyiselle linja-autoasemalle
2	Matkakeskus rautatieasemalla	Täysperävaunuyhdistelmä	Katuajo	70% kuorma	61.477491	21.787756	kpl-km /d	100	2	Päästöpiste oletetaan rautatieasemalle

Katso myös

• Pienhiukkaspäästöt Raumalla

Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>