Ero sivun ”Infektion todennäköisyys per henkilö” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
 
(25 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]]


== Rajaus ==
== Kysymys ==


Mikrobien aiheuttaman infektion todennäköisyys per henkilö
Mikrobien aiheuttaman infektion todennäköisyys per henkilö


== Määritelmä ==
== Vastaus ==
 
== Perustelut ==


=== Data ===
=== Data ===




=== Kausaliteetti ===
=== Laskenta ===
*[[Patogeeneille altistuminen]]
*[[Patogeenien annosvasteet]]


=== Yksikkö ===
==== R Koodi ====


<rcode name="muuttuja">
library(OpasnetUtils)


=== Kaava ===
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"])
}


<anacode>Dose_response(Pathogen_exposure)</anacode>
Vaste <- Ovariable("Vaste", dependencies = riippuvuudet, formula = funktio, save = TRUE)


== Tulokset ==
oprint(Vaste)
 
</rcode>
Norovirus:
 
" " "Clean" "Medium" "Contaminated"
"UV +  Fe filtration" 0 2.624932927449697e-008 2.778697902113492e-007
"UV max" 0 2.624932307458416e-007 2.778691353583262e-006
"UV normal" 0 1.253582090829524e-005 1.326866229628913e-004
"UV minimum" 0 0.01075949143694614 0.1040408647916788
"Double UV" 0 1.057387510883245e-015 1.118577452885461e-014
 
 
 
Rotavirus:
 
{| {{prettytable}}
|
|Clean
|Medium
|Contaminated
|----
|UV +  Fe filtration
|0
|6.006460862468809e-008
|6.384313578525203e-007
|----
|UV max
|0
|6.006457703274126e-007
|6.384278935912657e-006
|----
|UV normal
|0
|2.479066641123385e-005
|2.634428500868775e-004
|----
|UV minimum
|0
|0.01639720890282145
|0.1522135103446872
|----
|Double UV
|0
|5.013889303739915e-015
|5.329787722274659e-014
|----
|}


== Katso myös ==
== Katso myös ==
 
*[[Vesiopas]]
   
   
== Viitteet ==
== Viitteet ==


Rivi 76: Rivi 50:


<references/>
<references/>
[[Luokka:Talousvesi]]

Nykyinen versio 2. heinäkuuta 2019 kello 12.01


Kysymys

Mikrobien aiheuttaman infektion todennäköisyys per henkilö

Vastaus

Perustelut

Data

Laskenta

R Koodi

+ Näytä koodi

Katso myös

Viitteet