Ero sivun ”Patogeeneille altistuminen” versioiden välillä
Siirry navigaatioon
Siirry hakuun
p (→RCode) |
p (→RCode) |
||
| Rivi 19: | Rivi 19: | ||
== RCode == | == RCode == | ||
<rcode> | <rcode> | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
library(xtable) | library(xtable) | ||
| Rivi 25: | Rivi 24: | ||
riippuvuudet = data.frame( | riippuvuudet = data.frame( | ||
Name = c("PatPitPuhVed", "keittamattomanKulutus"), | Name = c("PatPitPuhVed", "keittamattomanKulutus"), | ||
Key = c("BOAssFdcvDoP6ere", " | Key = c("BOAssFdcvDoP6ere", "9yjJj7i4DMeWJsg8") | ||
) | ) | ||
funktio = function(dependencies, ...){ | |||
ComputeDependencies(dependencies, ...) | |||
out = merge(PatPitPuhVed,keittamattomanKulutus) | |||
out <- PatPitPuhVed * keittamattomanKulutus | |||
#attach(out@output) | |||
#out@output$Result <- PatPitPuhVedResult * keittamattomanKulutusResult | |||
#detach("out@output") | |||
return(out@output) | return(out@output) | ||
| Rivi 42: | Rivi 43: | ||
) | ) | ||
temp <- EvalOutput(Exposure) | |||
print(xtable(temp@output),type = "html") | |||
objects.put(Exposure) | |||
cat("Muuttuja alustettu. Kopioi sivun osoitteen avain talteen käyttöä varten.\n") | |||
</rcode> | </rcode> | ||
Versio 19. heinäkuuta 2012 kello 11.48
| Moderaattori:Päivi Meriläinen (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
Rajaus
Miten suurelle määrälle patogeeneja juomaveden kuluttaja altistuu vuorokaudessa?
Määritelmä
Data
Kausaliteetti
- Infektion todennäköisyys per henkilö
- Patogeenien pitoisuudet puhdistetussa juomavedessä
- Vedenkulutus
Yksikkö
mikrobia/vrk
RCode
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>
|
|