|
|
| (101 välissä olevaa versiota 6 käyttäjän tekeminä ei näytetä) |
| Rivi 1: |
Rivi 1: |
| {{metodi}}
| | #REDIRECT[[Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen arviointi]] |
| | |
| ==Kysymys==
| |
| | |
| Kuinka arvioidaan kohdekohtaisesti väestön ympäristöperäinen altistuminen haitta-aineelle sekä altistumisesta aiheutuva terveysriski?
| |
| | |
| ==Vastaus==
| |
| | |
| ===Ennakolta määritellyt laskentaparametrit===
| |
| | |
| <t2b index="Parametri,Lyhenne,Yksikkö,Henkilö" obs="Arvo" unit="useita">
| |
| Altistumisperiodin pituus|At|vrk|Aikuinen|365
| |
| Altistumisperiodin pituus|At|vrk|Lapsi|365
| |
| Kehon paino|Bw|kg|Aikuinen|70
| |
| Kehon paino|Bw|kg|Lapsi|15
| |
| Hengitystiheys|Ir.air|m3/h|Aikuinen|0.83
| |
| Hengitystiheys|Ir.air|m3/h|Lapsi|0.32
| |
| Oleskeluaika sisätiloissa (keskiarvo altistumsperiodille)|Ef.air.indoor|h/vrk|Aikuinen|22.86
| |
| Oleskeluaika sisätiloissa (keskiarvo altistumsperiodille)|Ef.air.indoor|h/vrk|Lapsi|21.14
| |
| Juomaveden kulutus|Ir.dw|l/vrk|Aikuinen|0.7
| |
| Juomaveden kulutus|Ir.dw|l/vrk|Lapsi|0.2
| |
| Altistumistiheys, juomavesi|Ef.dw|vrk/vuosi|Aikuinen|365
| |
| Altistumistiheys, juomavesi|Ef.dw|vrk/vuosi|Lapsi|365
| |
| Niellyn maa-aineksen määrä|Ir.soil|mg/vrk/ton|Aikuinen|50
| |
| Niellyn maa-aineksen määrä|Ir.soil|mg/vrk|Lapsi|150
| |
| Maa-aineksen kiinnittyminen iholle|Soil.ad.skin|mg/cm2/vrk|Aikuinen|0.25
| |
| Maa-aineksen kiinnittyminen iholle|Soil.ad.skin|mg/cm2/vrk|Lapsi|0.25
| |
| Maa-ainekselle altistuvan ihon osuus|F.skin.soil||Aikuinen|0.05
| |
| Maa-ainekselle altistuvan ihon osuus|F.skin.soil||Lapsi|0.2
| |
| Altistumistiheys, maa-aines|Ef.soil|vrk/vuosi|Aikuinen|255
| |
| Altistumistiheys, maa-aines|Ef.soil|vrk/vuosi|Lapsi|255
| |
| Vihannesten kokonaiskulutus (keskiarvo altistumsperiodille)|Ir.lfc|kg/vrk|Aikuinen|0.110
| |
| Vihannesten kokonaiskulutus (keskiarvo altistumsperiodille)|Ir.lfc|kg/vrk|Lapsi|0.055
| |
| Juuresten kokonaiskulutus (keskiarvo altistumsperiodille)|Ir.tfc|kg/vrk|Aikuinen|0.200
| |
| Juuresten kokonaiskulutus (keskiarvo altistumsperiodille)|Ir.tfc|kg/vrk|Lapsi|0.100
| |
| Marjojen kokonaiskulutus (keskiarvo altistumsperiodille)|Ir.berries|kg/vrk|Aikuinen|0.044
| |
| Marjojen kokonaiskulutus (keskiarvo altistumsperiodille)|Ir.berries|kg/vrk|Lapsi|0.035
| |
| Paikallisten vihannesten osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)|F.lfc.loc||Aikuinen|0.1
| |
| Paikallisten vihannesten osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)|F.lfc.loc||Lapsi|0.1
| |
| Paikallisten juuresten osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)|F.tfc.loc||Aikuinen|0.1
| |
| Paikallisten juuresten osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)|F.tfc.loc||Lapsi|0.1
| |
| Paikallisten marjojen osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)|F.berries.loc||Aikuinen|0.5
| |
| Paikallisten marjojen osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)|F.berries.loc||Lapsi|0.5
| |
| Peseytymiseen kuluva aika|Ed.bathing|h/vrk|Aikuinen|0.25
| |
| Peseytymiseen kuluva aika|Ed.bathing|h/vrk|Lapsi|0.25
| |
| Altistumistiheys, pesuvesi|Ef.bathing|vrk/vuosi|Aikuinen|365
| |
| Altistumistiheys, pesuvesi|Ef.bathing|vrk/vuosi|Lapsi|365
| |
| Pesuvedelle altistuvan ihon osuus|F.skin.bw||Aikuinen|1
| |
| Pesuvedelle altistuvan ihon osuus|F.skin.bw||Lapsi|1
| |
| Uidessa niellyn pintaveden määrä|Ir.sw|l/uintikerta|Aikuinen|0.05
| |
| Uidessa niellyn pintaveden määrä|Ir.sw|l/uintikerta|Lapsi|0.05
| |
| Uintikerran kesto|Ed.swimming|h/uintikerta|Aikuinen|0.25
| |
| Uintikerran kesto|Ed.swimming|h/uintikerta|Lapsi|0.25
| |
| Altistumistiheys, pintavesi|Ef.sw|Uintikerta/vuosi|Aikuinen|30
| |
| Altistumistiheys, pintavesi|Ef.sw|Uintikerta/vuosi|Lapsi|30
| |
| Pintavedelle altistuvan ihon osuus|F.skin.sw||Aikuinen|1
| |
| Pintavedelle altistuvan ihon osuus|F.skin.sw||Lapsi|1
| |
| </t2b>
| |
| | |
| | |
| ===Mallifunktio===
| |
| | |
| <rcode name="answer" include="page:OpasnetBaseUtils|name:generic">
| |
| | |
| library(OpasnetBaseUtils)
| |
| library(xtable)
| |
| | |
| | |
| page <- "Op_fi2814"
| |
| | |
| #Kokonaissaanti <- function(page, C.dw, Ir.dw, Ef.dw, Bw, At){
| |
| data <- op_baseGetData("opasnet_base", page)
| |
| data <- tidy(data)
| |
| | |
| #Aikuinen | |
| | |
| data.a <- data[data$Henkilö == "Aikuinen",]
| |
| Bw.a <- data.a[data.a$Lyhenne == "Bw",][,5]
| |
| At.a <- data.a[data.a$Lyhenne == "At",][,5]
| |
| | |
| ##Ruuansulatuskanava
| |
| | |
| ###Juomavesi
| |
| | |
| Ir.dw.a <- data.a[data.a$Lyhenne == "Ir.dw",][,5]
| |
| Ef.dw.a <- data.a[data.a$Lyhenne == "Ef.dw",][,5]
| |
| | |
| Dw.ing.a <- (Ir.dw.a * Ef.dw.a) / (Bw.a * At.a)
| |
| | |
| ###Maaperä
| |
| | |
| Ir.soil.a <- data.a[data.a$Lyhenne == "Ir.soil",][,5]
| |
| Ef.soil.a <- data.a[data.a$Lyhenne == "Ef.soil",][,5]
| |
| | |
| Soil.ing.a <- (Ir.soil.a * Ef.soil.a) / (Bw.a * At.a)
| |
| | |
| ###Vihannekset
| |
| | |
| Ir.lfc.a <- data.a[data.a$Lyhenne == "Ir.lfc",][,5]
| |
| F.lfc.loc.a <- data.a[data.a$Lyhenne == "F.lfc.loc",][,5]
| |
| | |
| Lfc.ing.a <- (Ir.lfc.a * F.lfc.loc.a) / Bw.a
| |
| | |
| ###Juurekset
| |
| | |
| Ir.tfc.a <- data.a[data.a$Lyhenne == "Ir.tfc",][,5]
| |
| F.tfc.loc.a <- data.a[data.a$Lyhenne == "F.tfc.loc",][,5]
| |
| | |
| Tfc.ing.a <- (Ir.tfc.a * F.tfc.loc.a) / Bw.a
| |
| | |
| ###Marjat
| |
| | |
| Ir.berries.a <- data.a[data.a$Lyhenne == "Ir.berries",][,5]
| |
| F.berries.loc.a <- data.a[data.a$Lyhenne == "F.berries.loc",][,5]
| |
| | |
| Berries.ing.a <- (Ir.berries.a * F.berries.loc.a) / Bw.a
| |
| | |
| ###Pintavesi
| |
| | |
| Ir.sw.a <- data.a[data.a$Lyhenne == "Ir.sw",][,5]
| |
| Ef.sw.a <- data.a[data.a$Lyhenne == "Ef.sw",][,5]
| |
| | |
| Sw.ing.a <- (Ir.sw.a * Ef.sw.a) / (Bw.a * At.a)
| |
| | |
| | |
| </rcode>
| |
| | |
| ===Arvioinnin tulos===
| |
| | |
| <rcode include="page:OpasnetBaseUtils|name:generic|page:Väestön_kohdekohtainen_ympäristöperäisen_haitta-ainealtistumisen_ja_terveysriskin_arviointi|name:answer"
| |
| variables="
| |
| name:C.air.outdoor|default:0.5|description:Haitta-aineen pitoisuus ulkoilmassa (µg/m3)|
| |
| name:C.air.indoor|default:0.5|description:Haitta-aineen pitoisuus sisäilmassa (µg/m3)|
| |
| name:C.dw|default:100|description:Haitta-aineen pitoisuus juomavedessä (mg/l)|
| |
| name:C.soil|default:1000|description:Haitta-aineen pitoisuus maaperässä (mg/kg)|
| |
| name:C.lfc|default:5|description:Haitta-aineen pitoisuus vihanneksissa (mg/kg tuorepainoa)|
| |
| name:C.tfc|default:5|description:Haitta-aineen pitoisuus juureksissa (mg/kg tuorepainoa)|
| |
| name:C.berries|default:5|description:Haitta-aineen pitoisuus marjoissa (mg/kg tuorepainoa)|
| |
| name:C.bw|default:0.5|description:Haitta-aineen pitoisuus pesuvedessä (mg/l)|
| |
| name:C.sw|default:0.5|description:Haitta-aineen pitoisuus pintavedessä (mg/l)|
| |
| name:TDI|default:100|description:Turvallisen päivittäisen saannin viitearvo (µg/kg/d)
| |
| ">
| |
| | |
| library(OpasnetBaseUtils)
| |
| library(xtable)
| |
| | |
| #juomavesi(page, C.dw, Ir.dw, Ef.dw, Bw, At)
| |
| | |
| | |
| #Intake.dw <- juomavesi(page, C.dw, Ir.dw, Ef.dw, Bw, At)
| |
| #print(xtable(Intake.dw), type = 'html')
| |
| | |
| C.dw
| |
| | |
| </rcode>
| |