Ero sivun ”Ympäristöterveydelliset viite- ja raja-arvot” versioiden välillä
Siirry navigaatioon
Siirry hakuun
Ei muokkausyhteenvetoa |
(kommentoitu) |
||
Rivi 13: | Rivi 13: | ||
<rcode label="Hae muuttujat" graphics="1"> | <rcode label="Hae muuttujat" graphics="1"> | ||
library(OpasnetUtils) | library(OpasnetUtils) # Haetaan peruspaketti | ||
library(ggplot2) | library(ggplot2) # Haetaan grafiikkapaketti | ||
objects.latest("Op_fi3373", "alustus") | objects.latest("Op_fi3373", "alustus") # Haetaan tarvittavat muuttujat (tämän sivun alustus-koodin tuottamat ovariablet) | ||
oprint(pitoisuusviitearvo) | oprint(pitoisuusviitearvo) # Tulostetaan muuttujien tulostaulukot (tulos lasketaan automaattisesti) | ||
oprint(altistusviitearvo) | oprint(altistusviitearvo) | ||
#oprint(summary(pitoisuusviitearvo)) | #oprint(summary(pitoisuusviitearvo)) # Tulostetaan muuttujien yhteenvetotaulukko (jokin vika on vielä) | ||
#oprint(summary(altistusviitearvo)) | #oprint(summary(altistusviitearvo)) | ||
pitoisuusviitearvo <- EvalOutput(pitoisuusviitearvo) | pitoisuusviitearvo <- EvalOutput(pitoisuusviitearvo) # Lasketaan tulos grafiikkaa varten | ||
altistusviitearvo <- EvalOutput(altistusviitearvo) | altistusviitearvo <- EvalOutput(altistusviitearvo) | ||
ggplot(pitoisuusviitearvo@output, aes(x = Altiste, y = pitoisuusviitearvoResult, fill = Matriisi)) + | ggplot(pitoisuusviitearvo@output, aes(x = Altiste, y = pitoisuusviitearvoResult, fill = Matriisi)) + # Määritellään kuvan sarakkeet | ||
geom_bar() + | geom_bar() + # Tolppadiagrammi | ||
theme_grey(base_size=24) | theme_grey(base_size=24) + # Fontin kokoa suurennetaan | ||
theme(axis.text.x = element_text(angle = 90, hjust = 1)) # X-akselin tekstit käännetään niin että mahtuvat | |||
</rcode> | |||
== Perustelut == | == Perustelut == | ||
Rivi 96: | Rivi 97: | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
library(xtable) | library(xtable) | ||
# Haetaan pitoisuusviitearvot. Laskenta tehdään formulassa, koska tarvitaan koodia kahden erillisen taulukon yhdistämiseen. | |||
pitoisuusviitearvo <- new("ovariable", | pitoisuusviitearvo <- new("ovariable", | ||
name = "pitoisuusviitearvo", | name = "pitoisuusviitearvo", | ||
dependencies = data.frame(), | dependencies = data.frame(), # Riippuvuudet jätetään tyhjäksi, koska kaikki tarvittava tieto on formulassa. | ||
formula = function(dependencies, ...) { | formula = function(dependencies, ...) { | ||
ComputeDependencies(dependencies, ...) | ComputeDependencies(dependencies, ...) | ||
out <- rbind( | out <- rbind( # Kaksi datataulua yhdistetään. | ||
tidy(opbase.data("Op_fi3373.maapera"), objname = "pitoisuusviitearvo"), | tidy(opbase.data("Op_fi3373.maapera"), objname = "pitoisuusviitearvo"), | ||
tidy(opbase.data("Op_fi3373.talousvesi"), objname = "pitoisuusviitearvo") | tidy(opbase.data("Op_fi3373.talousvesi"), objname = "pitoisuusviitearvo") | ||
Rivi 110: | Rivi 113: | ||
) | ) | ||
oprint(pitoisuusviitearvo) | oprint(pitoisuusviitearvo) # Tulosta taulukko ovariablen tuloksesta | ||
# Tee toinen muuttuja. Se voidaan määritellä helpommin, koska tuloksena on yksinkertaisesti datataulu. | |||
altistusviitearvo <- Ovariable(name= "altistusviitearvo", ddata = "Op_fi3373", subset = "Kokonaissaanti", getddata = FALSE) | altistusviitearvo <- Ovariable(name= "altistusviitearvo", ddata = "Op_fi3373", subset = "Kokonaissaanti", getddata = FALSE) | ||
Rivi 116: | Rivi 121: | ||
oprint(altistusviitearvo) | oprint(altistusviitearvo) | ||
# Tallennetaan molemmat ovariablet niin, että niitä voi käyttää osana malleja. | |||
objects.store(altistusviitearvo, pitoisuusviitearvo) | objects.store(altistusviitearvo, pitoisuusviitearvo) | ||
cat("Ovariablet altistusviitearvo ja pitoisuusviitearvo tallennettu.\n") | cat("Ovariablet altistusviitearvo ja pitoisuusviitearvo tallennettu.\n") | ||
</rcode> | </rcode> | ||
==Katso myös== | ==Katso myös== | ||
Versio 7. maaliskuuta 2013 kello 10.12
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:
|
Moderaattori:Jouni (katso kaikki)
Sivun edistyminen: Luonnos. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
Lisää dataa
|
Kysymys
Mitkä ovat viralliset ympäristöterveydelliset raja- ja viitearvot Suomessa?
Vastaus
Perustelut
Data
Maaperän pilaantuneisuuden terveysperusteiset viitearvot
Obs | Altiste | Matriisi | Yksikkö | Result | Kuvaus |
---|---|---|---|---|---|
1 | Antimoni | Maaperä | mg/kg | 9 | PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö |
2 | Arseeni | Maaperä | mg/kg | 424 | PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö |
3 | Elohopea | Maaperä | mg/kg | 43 | PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö |
4 | Kadmium | Maaperä | mg/kg | 25 | PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö |
5 | Koboltti | Maaperä | mg/kg | 590 | PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö |
6 | Kromi (3+) | Maaperä | mg/kg | 3190 | PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö |
7 | Kupari | Maaperä | mg/kg | 10000 | PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö, HUOM! SHPter > 10000 mg/kg |
8 | Lyijy | Maaperä | mg/kg | 212 | PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö |
9 | Nikkeli | Maaperä | mg/kg | 1190 | PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö |
10 | Sinkki | Maaperä | mg/kg | 10000 | PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö, HUOM! SHPter > 10000 mg/kg |
11 | Vanadiini | Maaperä | mg/kg | 436 | PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö |
Talousveden terveysperusteiset viitearvot
Obs | Altiste | Matriisi | Yksikkö | Result | Kuvaus |
---|---|---|---|---|---|
1 | Antimoni | Talousvesi | mg/l | 0.005 | STM 461/2000 |
2 | Arseeni | Talousvesi | mg/l | 0.01 | STM 461/2000 |
3 | Elohopea | Talousvesi | mg/l | 0.001 | STM 461/2000 |
4 | Kadmium | Talousvesi | mg/l | 0.005 | STM 461/2000 |
5 | Kromi (3+) | Talousvesi | mg/l | 0.05 | STM 461/2000 |
6 | Kupari | Talousvesi | mg/l | 2 | STM 461/2000 |
7 | Lyijy | Talousvesi | mg/l | 0.01 | STM 461/2000 |
8 | Nikkeli | Talousvesi | mg/l | 0.02 | STM 461/2000 |
Haitta-aineen turvallisen päivittäisen saannin viitearvo
Obs | Altiste | Reitti | Yksikkö | Result | Kuvaus |
---|---|---|---|---|---|
1 | Antimoni | Kokonaissaanti | µg/kg/vrk | 6 | WHO |
2 | Arseeni | Kokonaissaanti | µg/kg/vrk | 0.3 | U.S.EPA, epäorgaaninen arseeni |
3 | Elohopea | Kokonaisaanti | µg/kg/vrk | 0.1 | U.S.EPA, metyyli-Hg |
4 | Kadmium | Kokonaissaanti | µg/kg/vrk | 0.5 | U.S.EPA |
5 | Koboltti | Kokonaissaanti | µg/kg/vrk | 1.4 | RIVM (Baars ym. 2001) |
6 | Kromi (3+) | Kokonaissaanti | µg/kg/vrk | 5 | RIVM (Baars ym. 2001), liukoiset yhdisteet |
7 | Kupari | Kokonaissaanti | µg/kg/vrk | 140 | RIVM (Baars ym. 2001) |
8 | Lyijy | Kokonaissaanti | µg/kg/vrk | 1.8 | WHO, RIVM (Baars ym. 2001), 3.6 + varmuuskerroin 2 |
9 | Nikkeli | Kokonaissaanti | µg/kg/vrk | 50 | RIVM (Baars ym. 2001) |
10 | Sinkki | Kokonaissaanti | µg/kg/vrk | 500 | RIVM (Baars ym. 2001) |
11 | Vanadiini | Kokonaissaanti | µg/kg/vrk | 9 | U.S.EPA |
Riippuvuudet
- altiste
- altistusaika
- allergiat ja muut herkkyydet
- suojautumistoimenpiteet
Laskenta
Katso myös
Avainsanat
Ympäristöterveys, viitearvot, HTP, raja-arvo
Viitteet
--#: Viitteet pitäisi kirjoittaa kunnolla auki. --Jouni Tuomisto 26. helmikuuta 2013 kello 22.54 (EET)
Aiheeseen liittyviä tiedostoja
<mfanonymousfilelist></mfanonymousfilelist>