Ero sivun ”Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen ja terveysriskin arviointi” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
 
(98 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.bw|h/vrk|Aikuinen|0.25
Peseytymiseen kuluva aika|Ed.bw|h/vrk|Lapsi|0.25
Altistumistiheys, pesuvesi|Ef.bw|vrk/vuosi|Aikuinen|365
Altistumistiheys, pesuvesi|Ef.bw|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.sw|h/uintikerta|Aikuinen|0.25
Uintikerran kesto|Ed.sw|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]
 
##Hengitystiet
 
###Ilma
 
Ir.air.a <- data.a[data.a$Lyhenne == "Ir.air",][,5]
Ef.air.indoor.a <- data.a[data.a$Lyhenne == "Ef.air.indoor",][,5]
 
Air.inh.a <- ((24-Ef.air.indoor) + Ef.air.indoor) / 24 * Ir.air.a / (Bw.a * At.a)
 
##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)
 
##Iho
 
Skin.sa.a <- (4 * Bw.a + 7) / (Bw.a + 90) * 10000 #Lasketaan ihon kokonaispinta-ala
 
###Maaperä
 
Soil.ad.skin.a <- data.a[data.a$Lyhenne == "Soil.ad.skin",][,5]
F.skin.soil.a <- data.a[data.a$Lyhenne == "F.skin.soil",][,5]
Abs.skin.soil.a <- 0.1
 
Derm.upt.soil <- (Soil.ad.skin.a * 0.001 * Skin.sa.a * F.skin.soil.a *Abs.skin.soil.a * Ef.soil.a) / (Bw.a * At.a)
 
###Pesuvesi
 
Ef.bw.a <- data.a[data.a$Lyhenne == "Ef.bw",][,5]
Ed.bw.a <- data.a[data.a$Lyhenne == "Ef.bw",][,5]
F.skin.bw.a <- data.a[data.a$Lyhenne == "F.skin.bw",][,5]
Kp a <- 1
 
Derm.upt.bw.a <- (0.001 * Kp * Ef.bw.a * Ed.bw.a * F.skin.bw.a) / (Bw.a * At.a)
 
###Pintavesi
 
Ef.sw.a <- data.a[data.a$Lyhenne == "Ef.sw",][,5]
Ed.sw.a <- data.a[data.a$Lyhenne == "Ef.sw",][,5]
F.skin.sw.a <- data.a[data.a$Lyhenne == "F.skin.sw",][,5]
Kp a <- 1
 
Derm.upt.sw.a <- (0.001 * Kp * Ef.sw.a * Ed.sw.a * F.skin.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>

Nykyinen versio 21. maaliskuuta 2013 kello 09.32

Ohjaus sivulle:

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Väestön_kohdekohtainen_ympäristöperäisen_haitta-ainealtistumisen_ja_terveysriskin_arviointi&oldid=18206”