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

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

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

Mallifunktio

+ Näytä koodi- Piilota koodi cat("Ladataan funktioita. \n") library(OpasnetBaseUtils) library(xtable) ########################## tf is a function that takes one large table, finds matching rows and #### produces a standard-format vector that can be operated with easily. Parameters: # condition = a vector with conditions for each condition column. The length must be ncol(col.condition). ############ External parameters (these must be defined as objects before the function is run; ##### they are not given in the function but they are used by it): # data = a data frame that contains the data # col.condition = vector with names of columns that contain the indices that must match in the data # col.common = vector with names of columns that are used as indices in calculations. # col.result = the column that contains the actual values. tf <- function(condition, ...) { # Take the part of data that fits the condition. Drop all columns but col.common and col.result. out <- data[data[col.condition] == condition, c(col.common, col.result)] # Merge the selected data with all col.common and drop possible extra rows so that the outcome always has the same size. out <- merge(unique(data[col.common]), out, all = TRUE) out <- out[rownames(unique(out[col.common])), ] return(out[, col.result]) } ####################Funktio väestön ympäristöperäisen haitta-ainealtistumisen määrittelyyn ########Saanti lasketaan yksikössä µg/kg/vrk kun ympäristön haitta-ainepitoisuudet on ilmoitettu yksiköissä µg/m3 (ilma), mg/l (vesi) sekä mg/kg (kiinteät väliaineet) ########Haitta-aineen taustasaanti tulee ilmoittaa muodossa µg/kg/vrk Chronic.environmental.exposure.to.toxic.substances <- function(C.air.outdoor, C.air.indoor, data, ...) { ##Hengitystiet Air.inh <- ((C.air.outdoor * ((24 - tf("Ef.air.indoor")) / 24)) + (C.air.indoor * (tf("Ef.air.indoor") / 24))) * tf("Ir.air") / (tf("Bw") * tf("At")) ##Ruuansulatuskanava ###Juomavesi Dw.ing <- C.dw * 1000 * tf("Ir.dw") * tf("Ef.dw") / (tf("Bw") * tf("At")) ###Maaperä Soil.ing <- C.soil * 1000 * (tf("Ir.soil") / 1000000) * tf("Ef.soil") / (tf("Bw") * tf("At")) ###Vihannekset Lfc.ing <- C.lfc * 1000 * tf("Ir.lfc") * tf("F.lfc.loc") / tf("Bw") ###Juurekset Tfc.ing <- C.tfc * 1000 * tf("Ir.tfc") * tf("F.tfc.loc") / tf("Bw") ###Marjat Berries.ing <- C.berries * 1000 * tf("Ir.berries") * tf("F.berries.loc") / tf("Bw") ###Kala Fish.ing <- C.fish * 1000 * tf("Ir.fish") * tf("F.fish.loc") / tf("Bw") ###Liha Meat.ing <- C.meat * 1000 * tf("Ir.meat") * tf("F.meat.loc") / tf("Bw") ###Maitotuotteet Dairy.ing <- C.dairy * 1000 * tf("Ir.dairy") * tf("F.dairy.loc") / tf("Bw") ###Pintavesi Sw.ing <- C.sw * 1000 * tf("Ir.sw") * tf("Ef.sw") / (tf("Bw") * tf("At")) ##Iho Skin.sa <- (4 * tf("Bw") + 7) / (tf("Bw") + 90) * 10000 #Lasketaan ihon kokonaispinta-ala ###Maaperä Soil.derm <- C.soil * 1000 * tf("Soil.ad.skin") * 0.000001 * Skin.sa * tf("F.skin.soil") * Abs.skin.soil * tf("Ef.soil") / (tf("Bw") * tf("At")) ###Pesuvesi Bw.derm <- C.bw * 1000 * 0.001 * Kp * tf("Ef.bw") * tf("Ed.bw") * Skin.sa * tf("F.skin.bw") / (tf("Bw") * tf("At")) ###Pintavesi Sw.derm <- C.sw * 1000 * 0.001 * Kp * tf("Ef.sw") * tf("Ed.sw") * Skin.sa * tf("F.skin.sw") / (tf("Bw") * tf("At")) #Laskennan jälkeen lisätään yhteiset sarakkeet col.common ja kootaan altistuminen kaikkien altistumisreittien kautta allekkain yhteen tauluun. common <- merge(unique(data[col.common]), data.frame(temp=1))[-(length(col.common)+1)] out <- data.frame(common, Altistumisreitti = rep(c("Hengitystiet", "Juomavesi", "Maaperä (ruuansulatuskanava)", "Paikalliset vihannekset", "Paikalliset juurekset", "Paikalliset marjat", "Paikallinen kala", "Paikallinen liha", "Paikalliset maitotuotteet", "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, Fish.ing, Meat.ing, Dairy.ing, Sw.ing, Soil.derm, Bw.derm, Sw.derm, Background.intake.adult, Background.intake.child)) return(out) } #################Funktio ympäristön terveysperusteisen laadun tarkasteluun ######Ympäristöpitoisuus tukee ilmoittaa samassa yksikössä kuin viitearvo Health.based.environmental.quality <- function(Concentration, EQC){ #Ympäristöpitoisuuksien vertailu haitta-aineen terveysperusteisiin ohjearvopitoisuuksiin HEQ.air.outdoor <- C.air.outdoor / HEQC.air.outdoor #Ulkoilma HEQ.air.indoor <- C.air.indoor / HEQC.air.indoor #Sisäilma HEQ.dw <- C.dw / HEQC.dw #Juomavesi HEQ.soil <- C.soil / HEQC.soil #Maaperä HEQ.lfc <- C.lfc / HEQC.lfc #Vihannekset HEQ.tfc <- C.tfc / HEQC.tfc #Juurekset HEQ.berries <- C.berries / HEQC.berries #Marjat HEQ.sw <- C.sw / HEQC.sw #Pintavesi out <- data.frame(Väliaine = c("Ulkoilma", "Sisäilma", "Juomavesi", "Maaperä", "Vihannekset", "Juurekset", "Marjat", "Pintavesi"), Result = c(HEQ.air.outdoor, HEQ.air.indoor, HEQ.dw, HEQ.soil, HEQ.lfc, HEQ.tfc, HEQ.berries, HEQ.sw)) return(out) } #################Funktio väestön ympäristöperäisestä haitta-ainealtistumisesta aiheutuvan terveysriskin karakterisointiin ####Vaatii toimiakseen: ####Tot.intake.adult = Aikuiselle määritetty keskimääräinen päivittäinen haitta-aineen kokonaissaanti (per painokilo per päivä) ####Tot.intake.child = Lapselle määritetty keskimääräinen päivittäinen haitta-aineen kokonaissaanti (per painokilo per päivä) ####Tot.intake.lifetime = Koko eliniälle määritetty keskimääräinen päivittäinen haitta-aineen kokonaissaanti (per painokilo per päivä) ####C.inhaled.air.adult = Aikuiselle määritetty hengitysilman keskimääräinen haitta-ainepitoisuus ####C.inhaled.air.child = Lapselle määritetty hengitysilman keskimääräinen haitta-ainepitoisuus ####C.inhaled.air.lifetime = Koko eliniälle määritetty hengitysilman keskimääräinen haitta-ainepitoisuus ####TDI = Haitta-aineen turvallisen päivittäisen saannin viitearvo ####NOAEL.ing = Haitta-aineen päivitäisen saannin NOAEL/LOAEL-arvo ####TCA = Haitta-aineen turvallisen päivittäisen hengitystiealtistumisen viitearvo ####NOAEC.inh = Haitta-aineen päivitäisen hengitystiealtistumisen NOAEC/LOAEC-arvo ####Cancer.unit.risk.intake = Haitta-aineen elinikäisen päivitäisen saannin yksikkösyöpäriski ####Cancer.unit.risk.inhalation = Haitta-aineen elinikäisen päivitäisen hengitystiealtistumisen yksikkösyöpäriski ####Population = Altistuvan väestön määrä Health.risk.characterisation.of.chronic.exposure.to.toxic.substances <- function(Exposure, Toxicity){ ###Päivittäinen kokonaissaanti HQ.intake.adult <- Tot.intake.adult / TDI MOS.intake.adult <- NOAEL.ing / Tot.intake.adult HQ.intake.child <- Tot.intake.child / TDI MOS.intake.child <- NOAEL.ing / Tot.intake.child HQ.intake.lifetime <- Tot.intake.lifetime / TDI MOS.intake.lifetime <- NOAEL.ing / Tot.intake.lifetime ###Päivittäinen hengitystiealtistuminen HQ.inhalation.adult <- C.inhaled.air.adult / TCA MOS.inhalation.adult <- NOAEC.inh / C.inhaled.air.adult HQ.inhalation.child <- C.inhaled.air.child / TCA MOS.inhalation.child <- NOAEC.inh / C.inhaled.air.child HQ.inhalation.lifetime <- C.inhaled.air.lifetime / TCA MOS.inhalation.lifetime <- NOAEC.inh / C.inhaled.air.lifetime ###Elinikäinen syöpäriski Cancer.risk.intake <- Tot.intake.lifetime * Cancer.unit.risk.intake Cancer.cases.intake <- Cancer.risk.intake * Population Cancer.risk.inhalation <- C.inhaled.air.lifetime * Cancer.unit.risk.inhalation Cancer.cases.inhalation <- Cancer.risk.inhalation * Population ###Kootaan kaikki riski-indikaattorit yhteen tauluun Noncancer.risk <- data.frame(Altistumisreitti = rep(c("Kokonaissaanti", "Hengitystiet"), each=6), Terveysvaikutus = c("Muu kuin genotoksinen karsinogeneesi"), Riski.indikaattori = rep(rep(c("Vaaraosamäärä (HQ)", "Turvamarginaali (MOS)"), each=3), times=2), Altistumistaso = c("Aikuinen", "Lapsi", "Elinikäinen"), Result = c(HQ.intake.adult, HQ.intake.child, HQ.intake.lifetime, MOS.intake.adult, MOS.intake.child, MOS.intake.lifetime, HQ.inhalation.adult, HQ.inhalation.child, HQ.inhalation.lifetime, MOS.inhalation.adult, MOS.inhalation.child, MOS.inhalation.lifetime)) Cancer.risk <- data.frame(Altistumisreitti = rep(c("Kokonaissaanti", "Hengitystiet"), each=2), Terveysvaikutus = c("Genotoksinen karsinogeneesi"), Riski.indikaattori =c("Yksilön syöpäriski (per 100 000)", "Odotetut syöpätapaukset väestössä"), Altistumistaso = c("Elinikäinen"), Result = c(Cancer.risk.intake*100000, Cancer.cases.intake, Cancer.risk.inhalation*100000, Cancer.cases.inhalation)) out <- merge(Noncancer.risk, Cancer.risk, all=TRUE) return(out) }

Arvioinnin tulos

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): Paikallisiset 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/d): Taustasaanti, lapsi (µg/kg/d): 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/d): Haitta-aineen turvallisen päivittäisen hengitystiealtistumisen viitearvo (µg/m3): Haitta-aineen päivitäisen saannin NOAEL/LOAEL-arvo (µg/kg/d): Haitta-aineen päivitäisen hengitystiealtistumisen NOAEC/LOAEC-arvo (µg/kg/d): Haitta-aineen elinikäisen päivitäisen saannin yksikkösyöpäriski (per µg/kg/d): Haitta-aineen elinikäisen päivitä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ä: Ihon läpäisykerroin haitta-aineelle vesikontaktin yhteydessä: + Näytä koodi- Piilota koodi library(OpasnetBaseUtils) library(xtable) ###########Tuloslaskenta cat("Ladataan dataa. \n") ####Parametrien määrittely #C.air.outdoor <- 0.118 #C.air.indoor <- 0.118 #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 <- 1 #HEQC.air.indoor <- 1 #HEQC.dw <- 2 #HEQC.soil <- 10000 #HEQC.lfc <- NA #HEQC.tfc <- NA #HEQC.berries <- NA #HEQC.sw <- NA #TCA <- 1 #TDI <- 140 #NOAEC.inh <- 600 #NOAEL.ing <- 16300 #Cancer.unit.risk.intake <- 0.0002 #Cancer.unit.risk.inhalation <- 0.0003 #Population <- 10000 #Abs.skin.soil <- 0.003 #Kp <- 0.001 #Background.intake.adult <- 0 #Background.intake.child <- 0 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 <- "Lyhenne" #Meitä kiinnostavat sarakkeen Lyhenne määrittämät asiat. ####Arvioinnissa käytettyjen lähtötietojen printtaus 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)) print(xtable(Environmental.concentration, digits=3), type = 'html') cat("Muiden altistumisen arvioinnissa käytettyjen muuttujien arvot.\n") parameters.adult <- data[data$Henkilö == "Aikuinen",] parameters.child <- data[data$Henkilö == "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) print(xtable(parameters.table, digits=3), type = 'html') 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)) print(xtable(HEQC.table, digits=3), type = 'html') cat("Kroonisesta haitta-ainealtistumisesta aiheutuvan terveysriskin arvioinnissa käytetyt toksisuuden viitearvot \n") toxicity.values.table <- data.frame(Viitesarvo=c("Haitta-aineen turvallisen päivittäisen saannin viitearvo", "Haitta-aineen turvallisen päivittäisen saannin viitearvo", "Haitta-aineen päivitäisen saannin NOAEL/LOAEL-arvo", "Haitta-aineen päivitäisen hengitystiealtistumisen NOAEC/LOAEC-arvo", "Haitta-aineen elinikäisen päivitäisen saannin yksikkösyöpäriski", "Haitta-aineen päivitä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)) print(xtable(toxicity.values.table, digits=3), type = 'html') ###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$Henkilö == "Aikuinen",] intake.child <- expo[expo$Henkilö == "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") print(xtable(intake.table, digits=3), type = 'html') cat("Eri altistumisreittien osuus päivittäisestä saannista (%). \n") print(xtable(intake.fractions.table, digits=3), 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, digits=3), type = 'html') ###Terveysriskin karakterisointi #####Määritellään terveysriskin karakterisointi -funktion tarvitsemat lähtömuuttujat Tot.intake.adult <- expo[expo$Henkilö == "Aikuinen",] Tot.intake.adult <- sum(Tot.intake.adult$Result,na.rm=TRUE) Tot.intake.child <- expo[expo$Henkilö == "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$Henkilö == "Aikuinen",])$Result Ef.air.indoor.child <- (Ef.air.indoor[Ef.air.indoor$Henkilö == "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) print(xtable(risk.table, digits=3), type = 'html')