Ero sivun ”Infektion todennäköisyys per henkilö” versioiden välillä
Siirry navigaatioon
Siirry hakuun
p (→Vastaus) |
|||
| (22 välissä olevaa versiota 7 käyttäjän tekeminä ei näytetä) | |||
| Rivi 1: | Rivi 1: | ||
{{muuttuja}} | {{muuttuja|moderator=Päivi Meriläinen}} | ||
[[Luokka:Sisältää R-koodia]] | |||
== | == Kysymys == | ||
Mikrobien aiheuttaman infektion todennäköisyys per henkilö | Mikrobien aiheuttaman infektion todennäköisyys per henkilö | ||
== | == Vastaus == | ||
== Perustelut == | |||
=== Data === | === Data === | ||
=== | === Laskenta === | ||
*[[Patogeeneille altistuminen]] | |||
*[[Patogeenien annosvasteet]] | |||
==== R Koodi ==== | |||
= | <rcode name="muuttuja"> | ||
library(OpasnetUtils) | |||
riippuvuudet <- data.frame( | |||
Name = c("Altistuminen", "AnnosVaste"), | |||
Ident = c("Op_fi2669/muuttuja", "Op_fi2653/muuttuja") | |||
) | |||
funktio <- function(...){ | |||
out <- merge(AnnosVaste, Altistuminen, all = FALSE) | |||
attach(out@output) | |||
for(i in 1:nrow(out@output)){ | |||
out@output$Result[i] = get(as.character(Rname[i]))(AltistuminenResult[i],Param1[i],Param2[i]) | |||
} | |||
detach("out@output") | |||
return(out@output[, !colnames(out@output) %in% "out"]) | |||
} | |||
Vaste <- Ovariable("Vaste", dependencies = riippuvuudet, formula = funktio, save = TRUE) | |||
oprint(Vaste) | |||
</rcode> | |||
== Katso myös == | == Katso myös == | ||
*[[Vesiopas]] | |||
== Viitteet == | == Viitteet == | ||
| Rivi 137: | Rivi 50: | ||
<references/> | <references/> | ||
[[Luokka:Talousvesi]] | |||
Nykyinen versio 2. heinäkuuta 2019 kello 12.01
| Moderaattori:Päivi Meriläinen (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
Kysymys
Mikrobien aiheuttaman infektion todennäköisyys per henkilö