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: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

Ennalta määritellyt laskentaparametrit

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

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	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	m³ /h	Aikuinen	0.83
6	Hengitystiheys	Ir.air	m³ /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 /altistumisperiodi	Aikuinen	365
12	Altistumistiheys, juomavesi	Ef.dw	vrk /altistumisperiodi	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 /cm² /vrk	Aikuinen	0.25
16	Maa-aineksen kiinnittyminen iholle	Soil.ad.skin	mg /cm² /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 /altistumisperiodi	Aikuinen	255
20	Altistumistiheys, maa-aines	Ef.soil	vrk /altistumisperiodi	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 /altistumisperiodi	Aikuinen	365
48	Altistumistiheys, pesuvesi	Ef.bw	vrk /altistumisperiodi	Lapsi	365
49	Peseytyessä vedelle altistuvan ihon osuus	F.skin.bw	-	Aikuinen	1
50	Peseytyessä vedelle 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 /altistumisperiodi	Aikuinen	30
56	Altistumistiheys, pintavesi	Ef.sw	Uintikerta /altistumisperiodi	Lapsi	30
57	Uidessa pintavedelle altistuvan ihon osuus	F.skin.sw	-	Aikuinen	1
58	Uidessa pintavedelle altistuvan ihon osuus	F.skin.sw	-	Lapsi	1

Mallifunktio

+ Näytä koodi - Piilota koodi

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 tulee 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)
}

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

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(OpasnetBaseUtils)
library(xtable)


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

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"

####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))
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(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))
print(xtable(toxicity.values.table, digits=5), 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=4), 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')

Katso myös

Viitteet

Aiheeseen liittyviä tiedostoja