Ero sivun ”Luikonlahden rikastamon lähiympäristön tila” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(koodeja siistitty ja dokumentoitu) |
|||
Rivi 17: | Rivi 17: | ||
Koodi laskee alla olevan datan perusteella pitoisuudet ja vertaa niitä viitearvoihin. | Koodi laskee alla olevan datan perusteella pitoisuudet ja vertaa niitä viitearvoihin. | ||
<rcode graphics="1" include="page:OpasnetUtils/Ograph|name:answer"> | <rcode label="Laske muuttuja" graphics="1" include="page:OpasnetUtils/Ograph|name:answer"> | ||
# ograph-funktio inkludeerataan koodiin (tilapäinen ratkaisu, kunnes saadaan sisään OpasnetUtilsiin) | # ograph-funktio inkludeerataan koodiin (tilapäinen ratkaisu, kunnes saadaan sisään OpasnetUtilsiin) | ||
library(OpasnetUtils) | library(OpasnetUtils) # Hakee peruspaketin | ||
library(ggplot2) | library(ggplot2) # Hakee grafiikkapaketin | ||
# Määrittele uusi ovariable pitoisuuden ja viitearvon suhteesta (jos > 1, on syytä huoleen). | |||
pitoisuussuhde <- new("ovariable", | pitoisuussuhde <- new("ovariable", | ||
name = "pitoisuussuhde", | name = "pitoisuussuhde", # Nimi-slotin on oltava sama kuin olion nimi. | ||
dependencies = data.frame( | dependencies = data.frame( # Määritellään, mistä ylävirran muuttujat löytyvät: uusimmasta alustus-koodin ajosta kahdelta sivulta. | ||
Name = c("pitoisuus", "pitoisuusviitearvo"), | Name = c("pitoisuus", "pitoisuusviitearvo"), | ||
Ident = c( | Ident = c("Op_fi3372/alustus", "Op_fi3373/alustus") | ||
), | ), | ||
formula = function(dependencies, ...) { | formula = function(dependencies, ...) { # Määritellään, mitä ylävirran muuttujille tehdään. Ensimmäinen rivi on aina sama. | ||
ComputeDependencies(dependencies, ...) | ComputeDependencies(dependencies, ...) | ||
suhde <- pitoisuus / pitoisuusviitearvo | suhde <- pitoisuus / pitoisuusviitearvo # Tässä on suhdeluvun varsinainen laskenta. | ||
return(suhde) | return(suhde) | ||
Rivi 40: | Rivi 40: | ||
) | ) | ||
oprint(pitoisuussuhde) | pitoisuussuhde <- EvalOutput(pitoisuussuhde) # Tämä laskee muuttujan ja samalla ylävirran muuttujat. | ||
oprint(pitoisuus) | |||
oprint(pitoisuussuhde) # Tulostetaan taulukko. | |||
ograph(pitoisuussuhde, x = "Altiste", fill = "Matriisi") | ograph(pitoisuus, x = "Altiste", fill = "Matriisi") | ||
ograph(pitoisuussuhde, x = "Altiste", fill = "Matriisi") # Piirretään kuvaaja. Oletuskuvaajana on type = geom_boxplot(). | |||
</rcode> | </rcode> | ||
Rivi 120: | Rivi 124: | ||
=== Riippuvuudet === | === Riippuvuudet === | ||
* [[Ympäristöterveydelliset viite- ja raja-arvot]] | |||
===Laskenta=== | ===Laskenta=== | ||
<rcode label="Alusta muuttuja" name="alustus"> | |||
# Koodin nimeä alustus käytetään, kun tätä muuttujaa haetaan | |||
library(OpasnetUtils) # Hakee peruspaketin | |||
# Luo ovariablen tämän sivun datataulusta. Data haetaan vasta, kun ovariable ajetaan. | |||
pitoisuus <- Ovariable(name = "pitoisuus", ddata = "Op_fi3372", getddata = FALSE) | |||
oprint(pitoisuus) # Tulostetaan taulukko. | |||
objects.store(pitoisuus) # Tallentaa ovariablen. | |||
cat("Ovariable pitoisuus tallennettu.\n") | |||
</rcode> | |||
==Katso myös== | ==Katso myös== | ||
* [[Ympäristöterveydelliset viite- ja raja-arvot]] | |||
{{minera}} | {{minera}} | ||
Rivi 131: | Rivi 154: | ||
==Viitteet== | ==Viitteet== | ||
<references/> | |||
==Aiheeseen liittyviä tiedostoja== | |||
{{mfiles}} |
Versio 7. maaliskuuta 2013 kello 15.26
Moderaattori:Virpi Kollanus (katso kaikki)
Sivun edistyminen: Luonnos. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
Lisää dataa
|
Kysymys
Kuinka suurille haitta-ainepitoisuuksille altistutaan Luikonlahden rikastamon lähiympäristössä?
Vastaus
Koodi laskee alla olevan datan perusteella pitoisuudet ja vertaa niitä viitearvoihin.
Perustelut
Data
Obs | Altiste | Matriisi | Altistumistaso | Yksikkö | Result | Kuvaus |
---|---|---|---|---|---|---|
1 | Arseeni | Talousvesi | Maksimi | mg/l | 0.00038 | |
2 | Arseeni | Maaperä | Maksimi | mg/kg | 24 | |
3 | Arseeni | Pintavesi | Maksimi | mg/l | 0.046 | Luikonlahti 3A, 1998-2011, 17 m syvyys, maksimi |
4 | Arseeni | Sienet | Maksimi | mg/kg tp | 0.187 | |
5 | Kadmium | Talousvesi | Maksimi | mg/l | 0.00005 | |
6 | Kadmium | Maaperä | Maksimi | mg/kg | 1.09 | |
7 | Kadmium | Sienet | Maksimi | mg/kg | 1.038 | |
8 | Koboltti | Talousvesi | Maksimi | mg/l | 0.00942 | |
9 | Koboltti | Maaperä | Maksimi | mg/kg | 32.6 | |
10 | Koboltti | Pintavesi | Maksimi | mg/l | 0.054 | Petkellahti 1A, 21 m syvyys, 1998-2011, maksimi |
11 | Koboltti | Sienet | Maksimi | mg/kg | 0.224 | |
12 | Kromi (3+) | Talousvesi | Maksimi | mg/l | 0.00116 | |
13 | Kromi (3+) | Maaperä | Maksimi | mg/kg | 315 | |
14 | Kromi (3+) | Pintavesi | Maksimi | mg/l | 0.008 | Petkellahti 1A, 1998-2011, 21 m syvyys, maksimi |
15 | Kromi (3+) | Sienet | Maksimi | mg/kg | 0.492 | |
16 | Kupari | Talousvesi | Maksimi | mg/l | 0.0088 | |
17 | Kupari | Maaperä | Maksimi | mg/kg | 417 | |
18 | Kupari | Pintavesi | Maksimi | mg/l | 0.004 | Petkellahti 1A, 1998-2011, 21 m syvyys, maksimi |
19 | Kupari | Sienet | Maksimi | mg/kg tp | 14.1 | |
20 | Lyijy | Talousvesi | Maksimi | mg/l | 0.00027 | |
21 | Lyijy | Maaperä | Maksimi | mg/kg | 62.2 | |
22 | Lyijy | Sienet | Maksimi | mg/kg tp | 0.223 | |
23 | Nikkeli | Talousvesi | Maksimi | mg/l | 0.0304 | |
24 | Nikkeli | Maaperä | Maksimi | mg/kg | 152 | |
25 | Nikkeli | Pintavesi | Maksimi | mg/l | 0.120 | Petkellahti 1A, 1998-2011, 21 m syvyysmaksimi |
26 | Nikkeli | Sienet | Maksimi | mg/kg tp | 0.364 | |
27 | Sinkki | Talousvesi | Maksimi | mg/l | 0.036 | |
28 | Sinkki | Maaperä | Maksimi | mg/kg | 187 | |
29 | Sinkki | Pintavesi | Maksimi | mg/l | 0.220 | Petkellahti 1A, 1998-2011, 21 m syvyys, maksimi |
30 | Sinkki | Sienet | Maksimi | mg/kg tp | 20.4 | |
31 | Vanadiini | Talousvesi | Maksimi | mg/l | 0.00059 | |
32 | Vanadiini | Maaperä | Maksimi | mg/kg | 135 | |
33 | Vanadiini | Sienet | Maksimi | mg/kg tp | 0.016 | |
34 | Arseeni | Talousvesi | Keskimääräinen | mg/l | 0.000095 | |
35 | Arseeni | Maaperä | Keskimääräinen | mg/kg | 2.68 | |
36 | Arseeni | Pintavesi | Keskimääräinen | mg/l | 0.001 | Petkellahti 1A ja Luikonlahti 3A ja 5,1998-2011, mediaani, alle määritysrajan 2 |
37 | Arseeni | Sienet | Keskimääräinen | mg/kg tp | 0.017 | Mediaani |
38 | Kadmium | Talousvesi | Keskimääräinen | mg/l | 0.00003 | |
39 | Kadmium | Maaperä | Keskimääräinen | mg/kg | 0.41 | |
40 | Kadmium | Sienet | Keskimääräinen | mg/kg | 0.065 | Mediaani |
41 | Koboltti | Talousvesi | Keskimääräinen | mg/l | 0.000345 | |
42 | Koboltti | Maaperä | Keskimääräinen | mg/kg | 6.6 | |
43 | Koboltti | Pintavesi | Keskimääräinen | mg/l | 0.001 | Petkellahti 1A ja Luikonlahti 3A ja 5, 1998-2011, mediaani, alle määritysrajan 2 |
44 | Koboltti | Sienet | Keskimääräinen | mg/kg | 0.015 | Mediaani |
45 | Kromi (3+) | Talousvesi | Keskimääräinen | mg/l | 0.000372 | |
46 | Kromi (3+) | Maaperä | Keskimääräinen | mg/kg | 43.4 | |
47 | Kromi (3+) | Pintavesi | Keskimääräinen | mg/l | 0.001 | Petkellahti 1A ja Luikonlahti 3A ja 5, 1998-2011, mediaani, alle määritysrajan 2 |
48 | Kromi (3+) | Sienet | Keskimääräinen | mg/kg | 0.015 | Mediaani |
49 | Kupari | Talousvesi | Keskimääräinen | mg/l | 0.00212 | |
50 | Kupari | Maaperä | Keskimääräinen | mg/kg | 53.1 | |
51 | Kupari | Pintavesi | Keskimääräinen | mg/l | 0.001 | Petkellahti 1A ja Luikonlahti 3A ja 5, 1998-2011, mediaani, alle määritysrajan 2 |
52 | Kupari | Sienet | Keskimääräinen | mg/kg tp | 2.45 | Mediaani |
53 | Lyijy | Talousvesi | Keskimääräinen | mg/l | 0.000045 | |
54 | Lyijy | Maaperä | Keskimääräinen | mg/kg | 30.9 | |
55 | Lyijy | Sienet | Keskimääräinen | mg/kg tp | 0.006 | Mediaani |
56 | Nikkeli | Talousvesi | Keskimääräinen | mg/l | 0.0173 | |
57 | Nikkeli | Maaperä | Keskimääräinen | mg/kg | 32.2 | |
58 | Nikkeli | Pintavesi | Keskimääräinen | mg/l | 0.004 | Petkellahti 1A, 1998-2011, mediaani |
59 | Nikkeli | Sienet | Keskimääräinen | mg/kg tp | 0.102 | Mediaani |
60 | Sinkki | Talousvesi | Keskimääräinen | mg/l | 0.00434 | |
61 | Sinkki | Maaperä | Keskimääräinen | mg/kg | 76.2 | |
62 | Sinkki | Pintavesi | Keskimääräinen | mg/l | 0.005 | Petkellahti 1A ja Luikonlahti 3A ja 5, 1998-2011, mediaani, alle määritysrajan 10 |
63 | Sinkki | Sienet | Keskimääräinen | mg/kg tp | 7.69 | Mediaani |
64 | Vanadiini | Talousvesi | Keskimääräinen | mg/l | 0.000183 | |
65 | Vanadiini | Maaperä | Keskimääräinen | mg/kg | 135 | |
66 | Vanadiini | Sienet | Keskimääräinen | mg/kg tp | 0.016 | Maksimi, vain yksi mittaustulos (?) |
Riippuvuudet
Laskenta
Katso myös
Avainsanat
Viitteet
Aiheeseen liittyviä tiedostoja
<mfanonymousfilelist></mfanonymousfilelist>