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

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

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

**Minera-malli: Ohjeistusta kaivostoiminnan ympäristö- ja terveysriskien arviointiin.**
Osa linkeistä vie ohjeistuksiin eri vaikutusarvioinnin osien tekemisestä, osa taas **valmiisiin laskentamalleihin** (lihavoitu).
Kaivostoiminta	Kohdekohtaisen arvioinnin esimerkkisivu · Rikastus · Kaivosprosessit
Pölyn ja hiukkasten päästöt	Pöly (ohje) · Lähteet · Pintamaan poisto! · Tarvekivi ! · Louhinta ! · Murskaus · Lastaus ja pudotus · Kuljetuksen pakokaasupäästöt! · Kuljetuksen pölypäästöt! · Työkoneet · Hihnakuljetus · Energiantuotanto · Polttomoottorit! · Sähköntuotanto ! · Boilerit ! · Varastointi · Kaivannaisjäte · Sivukivi · Rikastushiekka
Muut päästöt	Haju · Kaasut · Typpi · Säteily! · Tärinä · Jätevesi · Varastoinnin vesipäästö · Mallinnusohjelmat · Rikastuskemikaalipäästöt · Melu
Pitoisuus ympäristössä	Pohjavesi · Pintavesi · Kulkeutuminen vedessä! · Sedimentit · Sedimentit (mittaukset) · Sedimentit (huokosvedet) · Maaperä! · Maaperän terveysriskinarvio
	Ihmiset	Ympäristö ja ekologia
Altistuminen	Altistumisen arviointi	Nisäkkäät ja linnut · Kasvit! · Maaselkärangattomat! · Ravinto!
Vaikutus	Terveysriskinarvioinnin rakenne · Riskinarviointiohjeet: · Pohjavesi · Pintavesi · Pöly · Kaasumaiset ilman epäpuhtaudet · Maaperä · Tärinä · Haju · Säteily! · Maaperän terveysriski · Kaasut · Melu · Pienhiukkasvaikutukset! · Terveysriskin kuvaus	Vesistöt · Maaperä · Sedimentti · Ekologinen riskinarviointi: · Ekologisten vaikutusten arviointi · Kohdekohtaisen mallin vaiheet · Alustus · Kohdetutkimukset · Vaikutusten arviointi · Mittauksiin perustuva arvio · Luonnehdinta
Integroitu riskinarvio	Integroitu riskinarvio · Viitearvoja

**Muita Minera-projektin tuotoksia**
Minera-mallin sovelluksia	· Luikonlahden tapaustutkimus · Luikonlahden sienitutkimusraportti
Muut	· Metallimalmikaivostoiminnan parhaat ympäristökäytännöt · Minera-hanke · MINERA Loppuseminaari · Kauppila T, Makkonen S, Komulainen H, Tuomisto JT: Metallikaivosalueiden ympäristöriskinarviointiosaamisen kehittäminen: MINERA-hankkeen loppuraportti. · Lehdistötiedote 15.4.2013 · Kohdekohtainen esimerkki · Lyhenteet ja määritelmät · Loppuraportti kokonaismalli · Kaivostoiminnan ympäristöterveysriskien arviointi (suojattu sivu) · Mallinnusohjelmat päästöjen arvioinnissa · Viitearvot · Talvivaaran kaivoksen terveysvaikutukset · Loppuraportti · Raportti · Yaran tapaustutkimus
Muita kaivostoimintaan liittyvää	· Vesijalanjälki · Hyvä kaivos pohjoisessa · Yhteiskuntatieteellinen kaivostutkimus Itä-Suomen yliopistossa · Teemasivu:Kaivostoiminnan vaikutusarviointi

Viitteet

Aiheeseen liittyviä tiedostoja