Ero sivun ”Patogeeneille altistuminen” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
Rivi 31: Rivi 31:
riippuvuudet = data.frame(
riippuvuudet = data.frame(
Name = c("PatPitPuhVed", "keittamattomanKulutus"),
Name = c("PatPitPuhVed", "keittamattomanKulutus"),
Key = c("EH3lsNFs1d4yFVV8", "jkwItRiXDuGvSUaT")
Key = c("k3TJ4JGhDlyNazjP", "jkwItRiXDuGvSUaT")
)
)
funktio = function(dependencies){
funktio = function(dependencies){
ComputeDependencies(dependencies)
ComputeDependencies(dependencies)
cat("en ole bugannut jeij")
out = merge(PatPitPuhVed,keittamattomanKulutus)
out = merge(PatPitPuhVed,keittamattomanKulutus)
                 attach(out@output)
                 attach(out@output)
out@output$Result <- PatPitPuhVedResult * keittamattomanKulutusResult
out@output$Result <- PatPitPuhVedResult * keittamattomanKulutusResult
                 detach("out@output")
                 detach("out@output")
cat("en ole bugannut jeij")
         return(out@output)
         return(out@output)
Rivi 58: Rivi 56:


</rcode>
</rcode>
<rcode>
library(OpasnetUtils)
library(xtable)


riippuvuudet = data.frame(
Name = c("PatPitPuhVed", "keittamattomanKulutus"),
Key = c("EH3lsNFs1d4yFVV8", "jkwItRiXDuGvSUaT")
)
ComputeDependencies(riippuvuudet)
cat("en ole bugannut jeij")
out = merge(PatPitPuhVed,keittamattomanKulutus)
                attach(out@output)
out@output$Result <- PatPitPuhVedResult * keittamattomanKulutusResult
                detach("out@output")
print(xtable(out@output)),type = "html")
</rcode>
=== Kaava ===
=== Kaava ===



Versio 4. heinäkuuta 2012 kello 12.46




Rajaus

Miten suurelle määrälle patogeeneja juomaveden kuluttaja altistuu vuorokaudessa?

Määritelmä

Data

Kausaliteetti


Yksikkö

mikrobia/vrk

RCode

+ Näytä koodi

Kaava

Tulokset

Pathogen Exp.pat
Cryptosporidium 0.00
E.coli O157:H7 0.00
Giardia 0.00
Kampylobakteeri 0.00
Norovirus 0.00
Rotavirus 0.00

Katso myös

Viitteet


Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>