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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
 
(20 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]]
=== Yksikkö ===
*[[Patogeenien annosvasteet]]
 
 
=== Kaava ===
Dose_response(Pathogen_exposure)
 
== Tulokset ==
 
Norovirus:
{| {{prettytable}}
|
|Clean
|Medium
|Contaminated
|----
|UV +  Fe filtration
|0
|2.610 e-08
|2.769 e-07
|----
|UV max
|0
|2.6109 e-07
|2.769 e-06
|----
|UV normal
|0
|1.247 e-05
|1.322 e-04
|----
|UV minimum
|0
|0.011
|0.104
|----
|Double UV
|0
|1.051 e-015
|1.115 e-014
|----
|}


==== R Koodi ====


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


Rotavirus:
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"])
}


{| {{prettytable}}
Vaste <- Ovariable("Vaste", dependencies = riippuvuudet, formula = funktio, save = TRUE)
|
|Clean
|Medium
|Contaminated
|----
|UV +  Fe filtration
|0
|6.0167e-08
|6.383 e-07
|----
|UV max
|0
|6.017 e-07
|6.383 e-06
|----
|UV normal
|0
|2.483 e-05
|2.633 e-04
|----
|UV minimum
|0
|0.0164
|0.152
|----
|Double UV
|0
|5.023 e-015
|5.328 e-014
|----
|}


 
oprint(Vaste)
Murine norovirus:
</rcode>
 
{| {{prettytable}}
|
|Clean
|Medium
|Contaminated
|----
|UV +  Fe filtration
|0
|2.290 e-010
|2.415 e-09
|----
|UV max
|0
|2.290 e-09
|2.415 e-08
|----
|UV normal
|0
|2.824 e-07
|2.977 e-06
|----
|UV minimum
|0
|1.286 e-03
|0.013
|----
|Double UV
|0
|0
|0
|----
|}


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


Rivi 136: 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