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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
Ei muokkausyhteenvetoa
Rivi 59: Rivi 59:


===Mallifunktio===
===Mallifunktio===
<rcode name="answer" include="page:OpasnetBaseUtils|name:generic">
library(OpasnetBaseUtils)
library(xtable)
page <- "Op_fi2814"
C.air.outdoor <- 0.118/1000
C.air.indoor <- 0.118/1000
C.soil <- 2645
C.dw <- 0.06
C.lfc <- 2.5
C.tfc <- 0.9
C.berries <- 1.9
C.bw <- 0.06
C.sw <- 0.003
Abs.skin.soil <- 0.003
Kp <- 0.001
#Riskinarviointi <- function(Whatever){
data <- op_baseGetData("opasnet_base", page)
data <- tidy(data)
#############Riskinarvioinnin laskenta
#Aikuinen, haitta-aineen päivittäinen saanti
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 <- ((C.air.outdoor * (24-Ef.air.indoor.a/24)) + (C.air.indoor * (Ef.air.indoor.a/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 <- (C.dw * 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 <- (C.soil * (Ir.soil.a / 1000000) * 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 <- (C.lfc * 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 <- (C.tfc * 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 <- (C.berries * 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 <- (C.sw * 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]
Soil.derm.a <- (C.soil * Soil.ad.skin.a * 0.000001 * Skin.sa.a * F.skin.soil.a *Abs.skin.soil * 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]
Bw.derm.a <- (C.bw * 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]
Sw.derm.a <- (C.sw * 0.001 * Kp * Ef.sw.a * Ed.sw.a * F.skin.sw.a) / (Bw.a * At.a)
Tot.intake.a <- Air.inh.a + Dw.ing.a + Soil.ing.a + Lfc.ing.a + Tfc.ing.a + Berries.ing.a + Sw.ing.a + Soil.derm.a + Bw.derm.a + Sw.derm.a
#Lapsi, haitta-aineen päivittäinen saanti
data.c <- data[data$Henkilö == "Lapsi",]
Bw.c <- data.c[data.c$Lyhenne == "Bw",][,5]
At.c <- data.c[data.c$Lyhenne == "At",][,5]
##Hengitystiet
###Ilma
Ir.air.c <- data.c[data.c$Lyhenne == "Ir.air",][,5]
Ef.air.indoor.c <- data.c[data.c$Lyhenne == "Ef.air.indoor",][,5]
Air.inh.c <- ((C.air.outdoor * (24-Ef.air.indoor.c/24)) + (C.air.indoor * (Ef.air.indoor.c/24)) * Ir.air.c) / (Bw.c * At.c)
##Ruuansulatuskanava
###Juomavesi
Ir.dw.c <- data.c[data.c$Lyhenne == "Ir.dw",][,5]
Ef.dw.c <- data.c[data.c$Lyhenne == "Ef.dw",][,5]
Dw.ing.c <- (C.dw * Ir.dw.c * Ef.dw.c) / (Bw.c * At.c)
###Maaperä
Ir.soil.c <- data.c[data.a$Lyhenne == "Ir.soil",][,5]
Ef.soil.c <- data.c[data.c$Lyhenne == "Ef.soil",][,5]
Soil.ing.c <- (C.soil * (Ir.soil.c / 1000000) * Ef.soil.c) / (Bw.c * At.c)
###Vihannekset
Ir.lfc.c <- data.c[data.c$Lyhenne == "Ir.lfc",][,5]
F.lfc.loc.c <- data.c[data.c$Lyhenne == "F.lfc.loc",][,5]
Lfc.ing.c <- (C.lfc * Ir.lfc.c * F.lfc.loc.c) / Bw.c
###Juurekset
Ir.tfc.c <- data.c[data.c$Lyhenne == "Ir.tfc",][,5]
F.tfc.loc.c <- data.c[data.c$Lyhenne == "F.tfc.loc",][,5]
Tfc.ing.c <- (C.tfc * Ir.tfc.c * F.tfc.loc.c) / Bw.c
###Marjat
Ir.berries.c <- data.c[data.c$Lyhenne == "Ir.berries",][,5]
F.berries.loc.c <- data.c[data.c$Lyhenne == "F.berries.loc",][,5]
Berries.ing.c <- (C.berries * Ir.berries.c * F.berries.loc.c) / Bw.c
###Pintavesi
Ir.sw.c <- data.c[data.c$Lyhenne == "Ir.sw",][,5]
Ef.sw.c <- data.c[data.c$Lyhenne == "Ef.sw",][,5]
Sw.ing.c <- (C.sw * Ir.sw.c * Ef.sw.c) / (Bw.c * At.c)
##Iho
Skin.sa.c <- (4 * Bw.c + 7) / (Bw.c + 90) * 10000 #Lasketaan ihon kokonaispinta-ala
###Maaperä
Soil.ad.skin.c <- data.c[data.c$Lyhenne == "Soil.ad.skin",][,5]
F.skin.soil.c <- data.c[data.c$Lyhenne == "F.skin.soil",][,5]
Soil.derm.c <- (C.soil * Soil.ad.skin.c * 0.000001 * Skin.sa.c * F.skin.soil.c *Abs.skin.soil * Ef.soil.c) / (Bw.c * At.c)
###Pesuvesi
Ef.bw.c <- data.c[data.c$Lyhenne == "Ef.bw",][,5]
Ed.bw.c <- data.c[data.c$Lyhenne == "Ef.bw",][,5]
F.skin.bw.c <- data.c[data.c$Lyhenne == "F.skin.bw",][,5]
Bw.derm.c <- (C.bw * 0.001 * Kp * Ef.bw.c * Ed.bw.c * F.skin.bw.c) / (Bw.c * At.c)
###Pintavesi
Ef.sw.c <- data.c[data.c$Lyhenne == "Ef.sw",][,5]
Ed.sw.c <- data.c[data.c$Lyhenne == "Ef.sw",][,5]
F.skin.sw.c <- data.c[data.c$Lyhenne == "F.skin.sw",][,5]
Sw.derm.c <- (C.sw * 0.001 * Kp * Ef.sw.c * Ed.sw.c * F.skin.sw.c) / (Bw.c * At.c)
Tot.intake.c <- Air.inh.c + Dw.ing.c + Soil.ing.c + Lfc.ing.c + Tfc.ing.c + Berries.ing.c + Sw.ing.c + Soil.derm.c + Bw.derm.c + Sw.derm.c
###########Ilmoitetaan tulokset
cat("Laskennassa käytetty haitta-aineen pitoisuus väliaineessa (mg/kg) \n")
Pitoisuus <- data.frame(Ulkoilma=C.air.outdoor, Sisäilma=C.air.indoor, Juomavesi=C.dw, Maaperä=C.soil, Vihannekset=C.lfc, Juurekset=C.tfc, Marjat=C.berries, Pesuvesi=C.bw, Pintavesi=C.sw)
print(xtable(Pitoisuus), type = 'html')
cat("Keskimääräinen päivittäinen altistuminen haitta-aineelle (µg/kg), aikuinen \n")
Kokonaissaanti.a <- data.frame(Ilma=Air.inh.a, Juomavesi=Dw.ing.a, Maaperä.rsk=Soil.ing.a, Vihannekset=Lfc.ing.a, Juurekset=Tfc.ing.a, Marjat=Berries.ing.a, Pintavesi.rsk=Sw.ing.a, Maaperä.iho=Soil.derm.a, Pesuvesi.iho=Bw.derm.a, Pintavesi.iho=Sw.derm.a, Kokonaissaanti=Tot.intake.a)*1000
print(xtable(Kokonaissaanti.a), type = 'html')
cat("Keskimääräinen päivittäinen altistuminen haitta-aineelle (µg/kg), lapsi \n")
Kokonaissaanti.c <- data.frame(Ilma=Air.inh.c, Juomavesi=Dw.ing.c, Maaperä.rsk=Soil.ing.c, Vihannekset=Lfc.ing.c, Juurekset=Tfc.ing.c, Marjat=Berries.ing.c, Pintavesi.rsk=Sw.ing.c, Maaperä.iho=Soil.derm.c, Pesuvesi.iho=Bw.derm.c, Pintavesi.iho=Sw.derm.c, Kokonaissaanti=Tot.intake.c)*1000
#Kokonaissaanti.c <- data.frame(Altistusreitti = c("Ilma", "Juomavesi", ...), Henkilö = , Arvo =  c(Air.inh.c, Dw.ing.c, Soil.ing.c...)
#, Vihannekset=Lfc.ing.c, Juurekset=Tfc.ing.c, Marjat=Berries.ing.c, Pintavesi.rsk=Sw.ing.c, Maaperä.iho=Soil.derm.c, Pesuvesi.iho=Bw.derm.c, Pintavesi.iho=Sw.derm.c, Kokonaissaanti=Tot.intake.c)*1000
print(xtable(Kokonaissaanti.c), type = 'html')
cat("Osuus kokonaissaannista, aikuinen \n")
Saanti.osuus.a <- Kokonaissaanti.a / Kokonaissaanti.a$Kokonaissaanti
print(xtable(Saanti.osuus.a), type = 'html')
cat("Osuus kokonaissaannista, lapsi \n")
Saanti.osuus.c <- Kokonaissaanti.c / Kokonaissaanti.c$Kokonaissaanti
print(xtable(Saanti.osuus.c), type = 'html')
#return(Kokonaissaanti.c)
#}
</rcode>
===Vaihtoehtokoodi===
Tämä koodi käyttää funktiota haluttujen rivien slaissaamiseen.


<rcode name="answer" include="page:OpasnetBaseUtils|name:generic">
<rcode name="answer" include="page:OpasnetBaseUtils|name:generic">
Rivi 397: Rivi 146:
out <- data.frame(common, Altistumisreitti = rep(c("Hengitystiet", "Juomavesi", "Maaperä (ruuansulatuskanava)", "Vihannekset", "Juurekset", "Marjat", "Pintavesi (ruuansulatuskanava)", "Maaperä (iho)", "Pesuvesi (iho)", "Pintavesi (iho)", "Taustasaanti"), each = nrow(common)), Result = c(Air.inh, Dw.ing, Soil.ing, Lfc.ing, Tfc.ing, Berries.ing, Sw.ing, Soil.derm, Bw.derm, Sw.derm, Background.intake.adult, Background.intake.child))
out <- data.frame(common, Altistumisreitti = rep(c("Hengitystiet", "Juomavesi", "Maaperä (ruuansulatuskanava)", "Vihannekset", "Juurekset", "Marjat", "Pintavesi (ruuansulatuskanava)", "Maaperä (iho)", "Pesuvesi (iho)", "Pintavesi (iho)", "Taustasaanti"), each = nrow(common)), Result = c(Air.inh, Dw.ing, Soil.ing, Lfc.ing, Tfc.ing, Berries.ing, Sw.ing, Soil.derm, Bw.derm, Sw.derm, Background.intake.adult, Background.intake.child))
return(out)
return(out)
}


}




Rivi 419: Rivi 170:
return(out)
return(out)
}
}




Rivi 425: Rivi 179:


Health.risk.characterisation.of.chronic.exposure.to.toxic.substances <- function(Exposure, Toxicity){
Health.risk.characterisation.of.chronic.exposure.to.toxic.substances <- function(Exposure, Toxicity){


###Päivittäinen kokonaissaanti
###Päivittäinen kokonaissaanti
Rivi 443: Rivi 198:
HQ.intake.lifetime <- Tot.intake.lifetime / TDI
HQ.intake.lifetime <- Tot.intake.lifetime / TDI
MOS.intake.lifetime <- NOAEL.ing / Tot.intake.lifetime
MOS.intake.lifetime <- NOAEL.ing / Tot.intake.lifetime


###Päivittäinen hengitystiealtistuminen
###Päivittäinen hengitystiealtistuminen
Rivi 480: Rivi 236:
out <- merge(Noncancer.risk, Cancer.risk, all=TRUE)
out <- merge(Noncancer.risk, Cancer.risk, all=TRUE)
return(out)
return(out)
}
}


Rivi 622: Rivi 377:
library(xtable)
library(xtable)


#juomavesi(page, C.dw, Ir.dw, Ef.dw, Bw, At)
 
###########Tuloslaskenta
 
cat("Ladataan dataa. \n")
 
####Parametrien määrittely
 
C.air.outdoor <- 0.118/1000
C.air.indoor <- 0.118/1000
C.soil <- 2645
C.dw <- 0.06
C.lfc <- 2.5
C.tfc <- 0.9
C.berries <- 1.9
C.bw <- 0.06
C.sw <- 0.003
Abs.skin.soil <- 0.003
Kp <- 0.001
Background.intake.adult <- 0
Background.intake.child <- 0
 
HEQC.air.outdoor <- 0.001
HEQC.air.indoor <- 0.001
HEQC.dw <- 2
HEQC.soil <- 10000
HEQC.lfc <- NaN
HEQC.tfc <- NaN
HEQC.berries <- NaN
HEQC.sw <- NaN
 
TCA <- 0.001
TDI <- 0.14
NOAEC.inh <- 0.6
NOAEL.ing <- 16.3
Cancer.unit.risk.intake <- 1.5
Cancer.unit.risk.inhalation <- 2
Population <- 10000
 
page <- "Op_fi2814"
data <- tidy(op_baseGetData("opasnet_base", page))
 
### Määritellään ulkoiset parametrit Altistumislaskennan taulukon muokkaamista varten.
col.common <- "Henkilö"
col.result <- "Result"
col.condition = "Yksikkö" # Tämä on vain tilapäinen demonstraatio siitä että eri sarakkeita voi käyttää.
 
col.condition <- "Lyhenne" # Varsinaisesti meitä kiinnostavat sarakkeen Lyhenne määrittämät asiat.




#Intake.dw <- juomavesi(page, C.dw, Ir.dw, Ef.dw, Bw, At)
###Altistumisen arvioinnin perusteena käytetyt ympäristön haitta-ainepitoisuudet
#print(xtable(Intake.dw), type = 'html')
 
Environmental.concentration <- data.frame(Väliaine=c("Ulkoilma","Sisäilma","Juomavesi","Maaperä","Vihannekset","Juurekset","Marjat","Pesuvesi","Pintavesi"), Pitoisuus=c(C.air.outdoor,C.air.indoor,C.dw,C.soil,C.lfc,C.tfc,C.berries,C.bw,C.sw))
 
cat("Altistumisen arvioinnin perusteena käytetyt ympäristön haitta-ainepitoisuudet (ilma: mg/m3, vesi: mg/l, kiinteät väliaineet: mg/kg) \n")
Environmental.concentration
#print(xtable(Environmental.concentration), type = 'html')
 
Abs.skin.soil <- 0.003
Kp <- 0.001
Background.intake.adult <- 0
Background.intake.child <- 0
 
###Altistumislaskennan tulostaulu
 
expo <- Chronic.environmental.exposure.to.toxic.substances(C.air.outdoor, C.air.indoor, data)
intake.adult <- expo[expo$Henkilö == "Aikuinen",]
intake.child <- expo[expo$Henkilö == "Lapsi",]
intake.tot <- data.frame(Altistumisreitti="Kokonaissaanti", Aikuinen=sum(intake.adult$Result)*1000, Lapsi=sum(intake.child$Result)*1000)
 
intake.table <- data.frame(Altistumisreitti=intake.adult$Altistumisreitti, Aikuinen=(intake.adult$Result*1000), Lapsi=(intake.child$Result*1000))
intake.table <- merge(intake.table,intake.tot,all=TRUE)
intake.table$Elinikäinen <- (intake.table$Lapsi * 6 + intake.table$Aikuinen * 64) / 70
 
intake.fractions.adult <- (intake.table$Aikuinen / intake.tot$Aikuinen)*100
intake.fractions.child <- (intake.table$Lapsi / intake.tot$Lapsi)*100
intake.fractions.lifetime <- intake.table$Elinikäinen / ((intake.tot$Lapsi * 6 + intake.tot$Aikuinen * 64)/70)
intake.fractions.table <- data.frame(Altistumisreitti=intake.table$Altistumisreitti, Aikuinen=intake.fractions.adult, Lapsi=intake.fractions.child, Elinikäinen=intake.fractions.lifetime)
 
cat("Altistumisen arviointi. \n")
cat("Keskimääräinen päivittäinen haitta-aineen saanti (µg/kg/vrk). \n")
print(xtable(intake.table), type = 'html')
cat("Eri altistumisreittien osuus päivittäisestä saannista (%). \n")
print(xtable(intake.fractions.table), type = 'html')
 
 
###Ympäristöpitoisuuksien terveysperusteisen viitearvovertailun tulostaulu
 
cat("Haitta-aineen pitoisuus ympäristössä suhteutettuna terveysperusteiseen viitearvoon.\n")
HEQ.table <- Health.based.environmental.quality(Concentration, EQC)
print(xtable(HEQ.table), type = 'html')
 
 
###Terveysriskin karakterisoinnin tulostaulu
 
risk <- Health.risk.characterisation.of.chronic.exposure.to.toxic.substances(Exposure, Toxicity)
risk.adult <- risk[risk$Altistumistaso == "Aikuinen",]
risk.child <- risk[risk$Altistumistaso == "Lapsi",]
risk.lifetime <- risk[risk$Altistumistaso == "Elinikäinen",]
 
risk.table.a <- data.frame(Altistumisreitti=risk.adult$Altistumisreitti, Terveysvaikutus=risk.adult$Terveysvaikutus, Riski.indikaattori=risk.adult$Riski.indikaattori, Aikuinen=risk.adult$Result, Lapsi=risk.child$Result)
risk.table.b <- data.frame(Altistumisreitti=risk.lifetime$Altistumisreitti, Terveysvaikutus=risk.lifetime$Terveysvaikutus, Riski.indikaattori=risk.lifetime$Riski.indikaattori, Elinikäinen=risk.lifetime$Result)
 
risk.table <- merge(risk.table.a, risk.table.b, all=TRUE)
 
cat("Kroonisesta ympäristöperäisestä haitta-ainealtistumisesta aiheutuvan terveysriskin karakterisointi. \n")
print(xtable(risk.table), type = 'html')


C.dw


</rcode>
</rcode>

Versio 24. tammikuuta 2012 kello 15.09




Kysymys

Kuinka arvioidaan kohdekohtaisesti väestön ympäristöperäinen altistuminen haitta-aineelle sekä altistumisesta aiheutuva terveysriski?

Vastaus

Ennakolta määritellyt laskentaparametrit

Ero sivun ”Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen ja terveysriskin arviointi” versioiden välillä(useita)
ObsParametriLyhenneYksikköHenkilöArvo
1Altistumisperiodin pituusAtvrkAikuinen365
2Altistumisperiodin pituusAtvrkLapsi365
3Kehon painoBwkgAikuinen70
4Kehon painoBwkgLapsi15
5HengitystiheysIr.airm3/hAikuinen0.83
6HengitystiheysIr.airm3/hLapsi0.32
7Oleskeluaika sisätiloissa (keskiarvo altistumsperiodille)Ef.air.indoorh/vrkAikuinen22.86
8Oleskeluaika sisätiloissa (keskiarvo altistumsperiodille)Ef.air.indoorh/vrkLapsi21.14
9Juomaveden kulutusIr.dwl/vrkAikuinen0.7
10Juomaveden kulutusIr.dwl/vrkLapsi0.2
11Altistumistiheys, juomavesiEf.dwvrk/vuosiAikuinen365
12Altistumistiheys, juomavesiEf.dwvrk/vuosiLapsi365
13Niellyn maa-aineksen määräIr.soilmg/vrk/tonAikuinen50
14Niellyn maa-aineksen määräIr.soilmg/vrkLapsi150
15Maa-aineksen kiinnittyminen iholleSoil.ad.skinmg/cm2/vrkAikuinen0.25
16Maa-aineksen kiinnittyminen iholleSoil.ad.skinmg/cm2/vrkLapsi0.25
17Maa-ainekselle altistuvan ihon osuusF.skin.soilAikuinen0.05
18Maa-ainekselle altistuvan ihon osuusF.skin.soilLapsi0.2
19Altistumistiheys, maa-ainesEf.soilvrk/vuosiAikuinen255
20Altistumistiheys, maa-ainesEf.soilvrk/vuosiLapsi255
21Vihannesten kokonaiskulutus (keskiarvo altistumsperiodille)Ir.lfckg/vrkAikuinen0.110
22Vihannesten kokonaiskulutus (keskiarvo altistumsperiodille)Ir.lfckg/vrkLapsi0.055
23Juuresten kokonaiskulutus (keskiarvo altistumsperiodille)Ir.tfckg/vrkAikuinen0.200
24Juuresten kokonaiskulutus (keskiarvo altistumsperiodille)Ir.tfckg/vrkLapsi0.100
25Marjojen kokonaiskulutus (keskiarvo altistumsperiodille)Ir.berrieskg/vrkAikuinen0.044
26Marjojen kokonaiskulutus (keskiarvo altistumsperiodille)Ir.berrieskg/vrkLapsi0.035
27Paikallisten vihannesten osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)F.lfc.locAikuinen0.1
28Paikallisten vihannesten osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)F.lfc.locLapsi0.1
29Paikallisten juuresten osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)F.tfc.locAikuinen0.1
30Paikallisten juuresten osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)F.tfc.locLapsi0.1
31Paikallisten marjojen osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)F.berries.locAikuinen0.5
32Paikallisten marjojen osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)F.berries.locLapsi0.5
33Peseytymiseen kuluva aikaEd.bwh/vrkAikuinen0.25
34Peseytymiseen kuluva aikaEd.bwh/vrkLapsi0.25
35Altistumistiheys, pesuvesiEf.bwvrk/vuosiAikuinen365
36Altistumistiheys, pesuvesiEf.bwvrk/vuosiLapsi365
37Pesuvedelle altistuvan ihon osuusF.skin.bwAikuinen1
38Pesuvedelle altistuvan ihon osuusF.skin.bwLapsi1
39Uidessa niellyn pintaveden määräIr.swl/uintikertaAikuinen0.05
40Uidessa niellyn pintaveden määräIr.swl/uintikertaLapsi0.05
41Uintikerran kestoEd.swh/uintikertaAikuinen0.25
42Uintikerran kestoEd.swh/uintikertaLapsi0.25
43Altistumistiheys, pintavesiEf.swUintikerta/vuosiAikuinen30
44Altistumistiheys, pintavesiEf.swUintikerta/vuosiLapsi30
45Pintavedelle altistuvan ihon osuusF.skin.swAikuinen1
46Pintavedelle altistuvan ihon osuusF.skin.swLapsi1

Mallifunktio

+ Näytä koodi

Arvioinnin tulos

Haitta-aineen pitoisuus ulkoilmassa (µg/m3):

Haitta-aineen pitoisuus sisäilmassa (µg/m3):

Haitta-aineen pitoisuus juomavedessä (mg/l):

Haitta-aineen pitoisuus maaperässä (mg/kg):

Haitta-aineen pitoisuus vihanneksissa (mg/kg tuorepainoa):

Haitta-aineen pitoisuus juureksissa (mg/kg tuorepainoa):

Haitta-aineen pitoisuus marjoissa (mg/kg tuorepainoa):

Haitta-aineen pitoisuus pesuvedessä (mg/l):

Haitta-aineen pitoisuus pintavedessä (mg/l):

Haitta-aineen päivittäinen muusta kuin tutkimuksen kohteena olevasta ympäristöstä aiheutuva taustasaanti(mg/kg/d):

Haitta-aineen turvallisen päivittäisen saannin viitearvo (mg/kg/d):

Haitta-aineen turvallisen päivittäisen hengitystiealtistumisen viitearvo (mg/m3):

Haitta-aineen päivitäisen saannin NOAEL/LOAEL-arvo (mg/kg/d):

Haitta-aineen päivitäisen hengitystiealtistumisen NOAEC/LOAEC-arvo (mg/kg/d):

Haitta-aineen päivitäisen saannin yksikkösyöpäriski (mg/kg/d):

Haitta-aineen päivitäisen hengitystiealtistumisen yksikkösyöpäriski (µg/m3):

Altistuvan väestön määrä:

+ Näytä koodi

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