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

Versio 21. maaliskuuta 2013 kello 08.52

Edistymisluokitus

Opasnetissa lukuisat sivut ovat työn alla eri vaiheissa. Niiden tietosisältöön pitää siis suhtautua harkiten. Tämän sivun sisällön edistyminen on arvioitu:

Tämä sivu on täysluonnos: Sivu on kirjoitettu kertaalleen alusta loppuun eli kaikki olennaiset sisällöt ovat jo paikoillaan. Kuitenkaan sisältöjä ei ole vielä kunnolla tarkistettu, ja esimerkiksi tärkeitä viitteitä voi puuttua.

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi2814
Moderaattori:Virpi Kollanus (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi2814}}

Kysymys

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

Vastaus

Arvioinnin kohteena oleva haitta-aine (kirjoitusmuoto: 'Haitta-aine'):

Arvioinninn kohteena oleva alue (kirjoitusmuoto: 'Alue'):

Haitta-aineen ympäristöpitoisuudet arvioinnin kohteena olevalla alueella

Ulkoilma (µg/m3):

Sisäilma (µg/m3):

Juomavesi (mg/l):

Maaperä (mg/kg):

Paikalliset vihannekset (mg/kg tuorepainoa):

Paikalliset juurekset (mg/kg tuorepainoa):

Paikalliset marjat (mg/kg tuorepainoa):

Paikallinen kala (mg/kg tuorepainoa):

Paikallinen liha (mg/kg tuorepainoa):

Paikalliset maitotuotteet (mg/kg tuorepainoa):

Peseytymiseen käytetty vesi (mg/l):

Pintavesi (uinti) (mg/l):

Haitta-aineen päivittäinen taustasaanti muusta kuin arvioinnin kohteena olevasta ympäristöstä

Taustasaanti, aikuinen (µg/kg/vrk):

Taustasaanti, lapsi (µg/kg/vrk):

Haitta-aineen ympäristöpitoisuuksille määritetyt terveysperusteiset viitearvot

Ulkoilma (µg/m3):

Sisäilma (µg/m3):

Juomavesi (mg/l):

Maaperä (mg/kg):

Vihannekset (mg/kg tuorepainoa):

Juurekset (mg/kg tuorepainoa):

Marjat (mg/kg tuorepainoa):

Kala (mg/kg tuorepainoa):

Liha (mg/kg tuorepainoa):

Maitotuotteet (mg/kg tuorepainoa):

Pintavesi (mg/l):

Terveysriskinarvioinnissa käytetyt haitta-aineen toksisuuden viitearvot

Haitta-aineen turvallisen päivittäisen saannin viitearvo (µg/kg/vrk):

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

Haitta-aineen päivittäisen saannin NOAEL/LOAEL-arvo (µg/kg/vrk):

Haitta-aineen päivittäisen hengitystiealtistumisen NOAEC/LOAEC-arvo (µg/kg/vrk):

Haitta-aineen elinikäisen päivittäisen saannin yksikkösyöpäriski (per µg/kg/vrk):

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

Muut tarvittavat muuttujat

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

Iholta imeytyvä haitta-aineen osuus maaperäkontaktin yhteydessä (tulee olla välillä 0-1):

Ihon läpäisykerroin haitta-aineelle vesikontaktin yhteydessä (cm/h):

+ Näytä koodi - Piilota koodi


library(OpasnetUtils)

objects.latest("Op_fi2814","alustus")

###########Tuloslaskenta

data <- tidy(opbase.data("Op_fi2814"), direction = "wide")

### Määritellään ulkoiset parametrit Altistumislaskennan taulukon muokkaamista varten.
col.common <- "Ikä"
col.result <- "Result"
col.condition <- "Lyhenne"

####Arvioinnissa käytettyjen lähtötietojen printtaus

cat("Arvioinnin kohteena oleva haitta-aine \n")

Chemical.substance

cat("Arvioinnin kohteena oleva alue \n")

Assessment.area

cat("Altistumisen arvioinnin perusteena käytetyt ympäristön haitta-ainepitoisuudet \n")

Environmental.concentration <- data.frame(
	Väliaine=c("Ulkoilma","Sisäilma","Juomavesi","Maaperä","Paikalliset vihannekset","Paikalliset juurekset","Paikalliset marjat","Paikallinen kala", "Paikallinen liha", "Paikalliset maitotuotteet", "Pesuvesi", "Pintavesi"), 
	Yksikkö=c("µg/m3", "µg/m3", "mg/l", "mg/kg", "mg/kg tuorepainoa", "mg/kg tuorepainoa", "mg/kg tuorepainoa", "mg/kg tuorepainoa", "mg/kg tuorepainoa", "mg/kg tuorepainoa", "mg/l", "mg/l"), 
	Pitoisuus=c(C.air.outdoor, C.air.indoor, C.dw, C.soil, C.lfc, C.tfc, C.berries, C.fish, C.meat, C.dairy, C.bw,C.sw)
)

oprint(Environmental.concentration, digits=3)


cat("Muiden altistumisen arvioinnissa käytettyjen muuttujien arvot.\n")

parameters.adult <- data[data$Ikä == "Aikuinen",]
parameters.child <- data[data$Ikä == "Lapsi",]

parameters.table.a <- data.frame(
	Muuttuja=parameters.adult$Parametri, 
	Yksikkö=parameters.adult$Yksikkö, 
	Aikuinen=parameters.adult$Result, 
	Lapsi=parameters.child$Result
)

parameters.table.b <- data.frame(
	Muuttuja=c("Iholta imeytyvän haitta-aineen osuus (maa-aineskontaktin yhteydessä)","Ihon läpäisevyyskerroin haitta-aineelle (vesikontaktin yhteydessä)","Haitta-aineen taustasaanti muista kuin paikallisista lähteistä"),
	Yksikkö=c("-","cm/h","µg/kg/vrk"),
	Aikuinen=c(Abs.skin.soil, Kp, Background.intake.adult), 
	Lapsi=c(Abs.skin.soil, Kp, Background.intake.adult)
)

parameters.table <- merge(parameters.table.a, parameters.table.b, all=TRUE)

oprint(parameters.table, digits=3)


cat("Ympäristön laadun arvioinnissa käytetyt haitta-ainepitoisuuksien terveysperusteiset viitearvot \n")

HEQC.table <- data.frame(
	Väliaine=c("Ulkoilma","Sisäilma","Juomavesi","Maaperä","Paikalliset vihannekset","Paikalliset juurekset","Paikalliset marjat","Paikallinen kala", "Paikallinen liha", "Paikalliset maitotuotteet","Pintavesi"), 
	Yksikkö=c("µg/m3", "µg/m3", "mg/l", "mg/kg", "mg/kg tuorepainoa", "mg/kg tuorepainoa", "mg/kg tuorepainoa", "mg/kg tuorepainoa", "mg/kg tuorepainoa", "mg/kg tuorepainoa", "mg/l"), 
	Pitoisuus=c(HEQC.air.outdoor, HEQC.air.indoor, HEQC.dw, HEQC.soil, HEQC.lfc, HEQC.tfc, HEQC.berries, HEQC.fish, HEQC.meat, HEQC.dairy, HEQC.sw)
)

oprint(HEQC.table, digits=3)


cat("Kroonisesta haitta-ainealtistumisesta aiheutuvan terveysriskin arvioinnissa käytetyt toksisuuden viitearvot \n")

toxicity.values.table <- data.frame(
	Viitearvo=c("Haitta-aineen turvallisen päivittäisen saannin viitearvo", "Haitta-aineen turvallisen päivittäisen saannin viitearvo", "Haitta-aineen päivittäisen saannin NOAEL/LOAEL-arvo", "Haitta-aineen päivittäisen hengitystiealtistumisen NOAEC/LOAEC-arvo", "Haitta-aineen elinikäisen päivittäisen saannin yksikkösyöpäriski", "Haitta-aineen elinikäisen päivittäisen hengitystiealtistumisen yksikkösyöpäriski", "Altistuvan väestön määrä"), 
	Yksikko=c("µg/kg/vrk", "µg/m3", "µg/kg/vrk", "µg/kg/vrk", "per µg/kg/vrk", "per µg/m3", "Henkilöä"), 
	Arvo=c(TDI, TCA, NOAEL.ing, NOAEC.inh, Cancer.unit.risk.intake, Cancer.unit.risk.inhalation, Population)
)

oprint(toxicity.values.table, digits=5)


###Altistumisen arviointi

cat("Altistumisen arvioinnin tulokset. \n")

expo <- Chronic.environmental.exposure.to.toxic.substances(C.air.outdoor, C.air.indoor, data)

intake.adult <- expo[expo$Ikä == "Aikuinen",]
intake.child <- expo[expo$Ikä == "Lapsi",]
intake.tot <- data.frame(
	Altistumisreitti="Kokonaissaanti", 
	Aikuinen=sum(intake.adult$Result, na.rm=TRUE), 
	Lapsi=sum(intake.child$Result, na.rm=TRUE)
)

intake.table <- data.frame(
	Altistumisreitti=intake.adult$Altistumisreitti, 
	Aikuinen=(intake.adult$Result), 
	Lapsi=(intake.child$Result)
)

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)*100)

intake.fractions.table <- data.frame(
	Altistumisreitti=intake.table$Altistumisreitti, 
	Aikuinen=intake.fractions.adult, 
	Lapsi=intake.fractions.child, 
	Elinikäinen=intake.fractions.lifetime
)

cat("Keskimääräinen päivittäinen haitta-aineen saanti (µg/kg/vrk). \n")
oprint(intake.table, digits=3)

cat("Eri altistumisreittien osuus päivittäisestä saannista (%). \n")
oprint(intake.fractions.table, digits=4)


###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)
oprint(HEQ.table, digits=3)


###Terveysriskin karakterisointi

#####Määritellään terveysriskin karakterisointi -funktion tarvitsemat lähtömuuttujat

Tot.intake.adult <- expo[expo$Ikä == "Aikuinen",]
Tot.intake.adult <- sum(Tot.intake.adult$Result,na.rm=TRUE)
Tot.intake.child <- expo[expo$Ikä == "Lapsi",]
Tot.intake.child <- sum(Tot.intake.child$Result,na.rm=TRUE)
Tot.intake.lifetime <- (Tot.intake.child * 6 + Tot.intake.adult * 64) / 70

Ef.air.indoor <- data[data$Lyhenne == "Ef.air.indoor",]
Ef.air.indoor.adult <- (Ef.air.indoor[Ef.air.indoor$Ikä == "Aikuinen",])$Result
Ef.air.indoor.child <- (Ef.air.indoor[Ef.air.indoor$Ikä == "Lapsi",])$Result
C.inhaled.air.adult <- (C.air.outdoor * ((24 - Ef.air.indoor.adult) / 24)) + (C.air.indoor * (Ef.air.indoor.adult / 24))
C.inhaled.air.child <- (C.air.outdoor * ((24 - Ef.air.indoor.child) / 24)) + (C.air.indoor * (Ef.air.indoor.child / 24))
C.inhaled.air.lifetime <- (C.inhaled.air.child * 6 + C.inhaled.air.adult * 64) / 70

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

#####Riskin karakterisoinnin tulostaulu

cat("Kroonisesta ympäristöperäisestä haitta-ainealtistumisesta aiheutuvan terveysriskin karakterisointi. \n")
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)
oprint(risk.table, digits=3)

Kohdekohtainen arviointi

HUOM!

Desimaalimerkkinä tulee käyttää pistettä (esim. 2.5, EI 2,5)

Jos muuttujalle ei ole määritettävissä arvoa, kenttään tulee kirjoittaa NA

Perustelut

Data

Näitä muuttujien lähtöarvoja voi muuttaa taulukkoa editoimalla

Ero sivun ”Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen ja terveysriskin arviointi” versioiden välillä(-)
Obs	Parametri	Lyhenne	Yksikkö	Aikuinen	Lapsi
1	Altistumisperiodin pituus	At	vrk	365	365
2	Kehon paino	Bw	kg	70	15
3	Hengitystiheys	Ir.air	m³/h	0.83	0.32
4	Oleskeluaika sisätiloissa (keskiarvo altistumisperiodille)	Ef.air.indoor	h/vrk	22.86	21.14
5	Juomaveden kulutus	Ir.dw	ml/vrk	700	200
6	Altistumistiheys, juomavesi	Ef.dw	vrk/altistumisperiodi	365	365
7	Niellyn maa-aineksen määrä	Ir.soil	g/vrk	0.050	0.150
8	Maa-aineksen kiinnittyminen iholle	Soil.ad.skin	mg/cm²/vrk	0.25	0.25
9	Maa-ainekselle altistuvan ihon osuus	F.skin.soil	-	0.05	0.2
10	Altistumistiheys, maa-aines	Ef.soil	vrk/altistumisperiodi	255	255
11	Vihannesten kokonaiskulutus (keskiarvo altistumisperiodille)	Ir.lfc	kg/vrk	0.11	0.055
12	Paikallisten vihannesten osuus kokonaiskulutuksesta (keskiarvo altistumisperiodille)	F.lfc.loc	-	0.1	0.1
13	Juuresten kokonaiskulutus (keskiarvo altistumsperiodille)	Ir.tfc	kg/vrk	0.2	0.1
14	Paikallisten juuresten osuus kokonaiskulutuksesta (keskiarvo altistumisperiodille)	F.tfc.loc	-	0.1	0.1
15	Marjojen kokonaiskulutus (keskiarvo altistumsperiodille)	Ir.berries	kg/vrk	0.044	0.035
16	Paikallisten marjojen osuus kokonaiskulutuksesta (keskiarvo altistumisperiodille)	F.berries.loc	-	0.5	0.5
17	Sienten kokonaiskulutus (keskiarvo altistumsperiodille)	Ir.mushroom	kg/vrk	0.006	0.003
18	Paikallisten sienten osuus kokonaiskulutuksesta (keskiarvo altistumisperiodille)	F.mushroom.loc	-	0.5	0.5
19	Kalan kokonaiskulutus (keskiarvo altistumsperiodille)	Ir.fish	kg/vrk	0.1	0.05
20	Paikallisen kalan osuus kokonaiskulutuksesta (keskiarvo altistumisperiodille)	F.fish.loc	-	0.1	0.1
21	Lihan kokonaiskulutus (keskiarvo altistumsperiodille)	Ir.meat	kg/vrk	0.1	0.05
22	Paikallisen lihan osuus kokonaiskulutuksesta (keskiarvo altistumisperiodille)	F.meat.loc	-	0.1	0.1
23	Maitotuotteiden kokonaiskulutus (keskiarvo altistumisperiodille)	Ir.dairy	kg/vrk	0.1	0.05
24	Paikallisten maitotuotteiden osuus kokonaiskulutuksesta (keskiarvo altistumisperiodille)	F.dairy.loc	-	0.1	0.1
25	Peseytymiseen kuluva aika	Ed.bw	h/vrk	0.25	0.25
26	Altistumistiheys, pesuvesi	Ef.bw	vrk/altistumisperiodi	365	365
27	Peseytyessä vedelle altistuvan ihon osuus	F.skin.bw	-	1	1
28	Uidessa niellyn pintaveden määrä	Ir.sw	ml/uintikerta	50	50
29	Uintikerran kesto	Ed.sw	h/uintikerta	0.25	0.25
30	Altistumistiheys, pintavesi	Ef.sw	uintikerta/altistumisperiodi	30	30
31	Uidessa pintavedelle altistuvan ihon osuus	F.skin.sw	-	1	1

Funktioiden parametrit

funktioparametrit(-)
Obs	Matriisi	Altistus	Funktio	Nopeus	Osuus	Kuvaus
1	Ulkoilma	Air.inh.out	F1	Ir.air	Ef.air.indoor	Ulkoilma
2	Sisäilma	Air.inh.in	F2	Ir.air	Ef.air.indoor	Sisäilma
3	Talousvesi	Dw.ing	F3	Ir.dw	Ef.dw	Juomavesi
4	Maaperä	Soil.ing	F3	Ir.soil	Ef.soil	Maaperä, nieleminen
5	Pintavesi	Sw.ing	F3	Ir.sw	Ef.sw	Uimavesi, nieleminen
6	Vihannekset	Lfc.ing	F4	Ir.lfc	F.lfc.loc	Vihannekset
7	Juurekset	Tfc.ing	F4	Ir.tfc	F.tfc.loc	Juurekset
8	Marjat	Berries.ing	F4	Ir.berries	F.berries.loc	Marjat
9	Sienet	Mushroom.ing	F4	Ir.mushroom	F.mushroom.loc	Sienet
10	Kala	Fish.ing	F4	Ir.fish	F.fish.loc	Kala
11	Liha	Meat.ing	F4	Ir.meat	F.meat.loc	Liha
12	Maitotuotteet	Dairy.ing	F4	Dairy.tfc	F.dairy.loc	Maitotuotteet
13	Maaperä	Soil.derm	F5	Ef.soil	F.skin.soil	Maaperä, ihoaltistus
14	Talousvesi	Bw.derm	F6	Ef.bw	F.skin.bw	Pesuvesi, ihoaltistus
15	Pintavesi	Sw.derm	F7	Ef.sw	F.skin.sw	Pintavesi, ihoaltistus

Funktiot

F1: concentration * (24 - tf(fraction) / 24) * tf(rate) / (tf("Bw") * tf("At"))
F2: concentration * tf(fraction) / 24 * tf(rate) / (tf("Bw") * tf("At"))
F3: concentration * tf(rate) * tf(fraction) / (tf("Bw") * tf("At"))
F4: concentration * 1000 * tf(rate) * tf(fraction) / tf("Bw")
F5: concentration * tf("Soil.ad.skin") * 0.001 * Skin.sa * tf(fraction) * Abs.skin.soil * tf(rate) / (tf("Bw") * tf("At"))
F6: concentration * Kp * tf(rate) * tf("Ed.bw") * Skin.sa * tf(fraction) / (tf("Bw") * tf("At"))
F7: concentration * Kp * tf(rate) * tf("Ed.sw") * Skin.sa * tf(fraction) / (tf("Bw") * tf("At"))

Laskenta