Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen ja terveysriskin arviointi

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi2814
Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? 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

Ennakolta määritellyt laskentaparametrit

Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen ja terveysriskin arviointi(useita)

Obs	Parametri	Lyhenne	Yksikkö	Henkilö	Arvo
1	Altistumisperiodin pituus	At	vrk	*	365
2	Kehon paino	Bw	kg	Aikuinen	70
3	Kehon paino	Bw	kg	Lapsi	15
4	Hengitystiheys	Ir.air	m3/h	Aikuinen	0.83
5	Hengitystiheys	Ir.air	m3/h	Lapsi	0.32
6	Oleskeluaika sisätiloissa (keskiarvo altistumsperiodille)	Ef.air.indoor	h/vrk	Aikuinen	22.86
7	Oleskeluaika sisätiloissa (keskiarvo altistumsperiodille)	Ef.air.indoor	h/vrk	Lapsi	21.14
8	Juomaveden kulutus	Ir.dw	l/vrk	Aikuinen	0.7
9	Juomaveden kulutus	Ir.dw	l/vrk	Lapsi	0.2
10	Altistumistiheys, juomavesi	Ef.dw	vrk/vuosi	*	365
11	Niellyn maa-aineksen määrä	Ir.soil	mg/vrk/ton	Aikuinen	50
12	Niellyn maa-aineksen määrä	Ir.soil	mg/vrk	Lapsi	150
13	Maa-aineksen kiinnittyminen iholle	Soil.ad.skin	mg/cm2/vrk	*	0.25
14	Maa-ainekselle altistuvan ihon osuus	F.skin.soil		Aikuinen	0.05
15	Maa-ainekselle altistuvan ihon osuus	F.skin.soil		Lapsi	0.2
16	Altistumistiheys, maa-aines	Ef.soil	vrk/vuosi	*	255
17	Vihannesten kokonaiskulutus (keskiarvo altistumsperiodille)	Ir.lfc	kg/vrk	Aikuinen	0.110
18	Vihannesten kokonaiskulutus (keskiarvo altistumsperiodille)	Ir.lfc	kg/vrk	Lapsi	0.055
19	Juuresten kokonaiskulutus (keskiarvo altistumsperiodille)	Ir.tfc	kg/vrk	Aikuinen	0.200
20	Juuresten kokonaiskulutus (keskiarvo altistumsperiodille)	Ir.tfc	kg/vrk	Lapsi	0.100
21	Marjojen kokonaiskulutus (keskiarvo altistumsperiodille)	Ir.berries	kg/vrk	Aikuinen	0.044
22	Marjojen kokonaiskulutus (keskiarvo altistumsperiodille)	Ir.berries	kg/vrk	Lapsi	0.035
23	Paikallisten vihannesten osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)	F.lfc.loc		*	0.1
24	Paikallisten juuresten osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)	F.tfc.loc		*	0.1
25	Paikallisten marjojen osuus kokonaiskulutuksesta (keskiarvo altistumsperiodille)	F.berries.loc		*	0.5
26	Peseytymiseen kuluva aika	Ed.bathing	h/vrk	Aikuinen	0.25
27	Peseytymiseen kuluva aika	Ed.bathing	h/vrk	Lapsi	0.25
28	Altistumistiheys, pesuvesi	Ef.bathing	vrk/vuosi	Aikuinen	365
29	Altistumistiheys, pesuvesi	Ef.bathing	vrk/vuosi	Lapsi	365
30	Pesuvedelle altistuvan ihon osuus	F.skin.bw		Aikuinen	1
31	Pesuvedelle altistuvan ihon osuus	F.skin.bw		Lapsi	1
32	Uidessa niellyn pintaveden määrä	Ir.sw	l/uintikerta	Aikuinen	0.05
33	Uidessa niellyn pintaveden määrä	Ir.sw	l/uintikerta	Lapsi	0.05
34	Uintikerran kesto	Ed.swimming	h/uintikerta	Aikuinen	0.25
35	Uintikerran kesto	Ed.swimming	h/uintikerta	Lapsi	0.25
36	Altistumistiheys, pintavesi	Ef.sw	Uintikerta/vuosi	Aikuinen	30
37	Altistumistiheys, pintavesi	Ef.sw	Uintikerta/vuosi	Lapsi	30
38	Pintavedelle altistuvan ihon osuus	F.skin.sw		Aikuinen	1
39	Pintavedelle altistuvan ihon osuus	F.skin.sw		Lapsi	1

Mallifunktio

+ Näytä koodi- Piilota koodi 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) data.adult <- data[data$Henkilö == "Aikuinen",] data.child <- data[data$Henkilö == "Lapsi",] #Juomavesi Bw.adult <- (data.adult[data.adult$Lyhenne == "Bw",])[,5] Ir.dw.adult <- (data.adult[data.adult$Lyhenne == "Ir.dw",])[,5] Ef.dw <-(data[data$Lyhenne == "Ef.dw",])[,5] At <-(data[data$Lyhenne == "At",])[,5] Bw.child <- (data.child[data.child$Lyhenne == "Bw",])[,5] Ir.dw.child <- (data.child[data.child$Lyhenne == "Ir.dw",])[,5] Ef.dw <-(data[data$Lyhenne == "Ef.dw",])[,5] At <-(data[data$Lyhenne == "At",])[,5] Intake.dw.adult <- (C.dw * Ir.dw.adult * Ef.dw)/(Bw.adult * At) Intake.dw.child <- (C.dw * Ir.dw.child * Ef.dw)/(Bw.child * At) data.frame(Aikuinen = Intake.dw.adult, Lapsi = Intake.dw.child) #Maaperä Bw.adult <- (data.adult[data.adult$Lyhenne == "Bw",])[,5] Ir.soil.adult <- (data.adult[data.adult$Lyhenne == "Ir.soil",])[,5] Ef.soil <-(data[data$Lyhenne == "Ef.soil",])[,5] At <-(data[data$Lyhenne == "At",])[,5] Bw.child <- (data.child[data.child$Lyhenne == "Bw",])[,5] Ir.soil.child <- (data.child[data.child$Lyhenne == "Ir.soil",])[,5] Ef.soil <-(data[data$Lyhenne == "Ef.soil",])[,5] At <-(data[data$Lyhenne == "At",])[,5] Intake.soil.adult <- (C.soil * Ir.soil.adult * Ef.soil)/(Bw.adult * At) Intake.soil.child <- (C.soil * Ir.soil.child * Ef.soil)/(Bw.child * At) Intake.soil <- data.frame(Aikuinen = Intake.soil.adult, Lapsi = Intake.soil.child)} C.soil <- 3000 C.dw <- 100 print(xtable(juomavesi), type = 'html')

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): Turvallisen päivittäisen saannin viitearvo (µg/kg/d): + Näytä koodi- Piilota koodi 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