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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
 
(26 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 ===
 
<anacode>Dose_response(Pathogen_exposure)</anacode>
 
== Tulokset ==


Norovirus:
==== R Koodi ====


{| {{prettytable}}
<rcode name="muuttuja">
|
library(OpasnetUtils)
|Clean
|Medium
|Contaminated
|----
|UV +  Fe filtration
|0
|7.656011785439475e-006
|8.26799190927658e-005
|----
|UV max
|0
|7.645786107958954e-005
|8.180457767830056e-004
|----
|UV normal
|0
|8.120674636468256e-004
|8.220555808147312e-003
|----
|UV minimum
|0
|0.03191574387228401
|0.2012337234291039
|----
|Double UV
|0
|1.235188705783763e-009
|1.28859962269301e-008
|----
|}


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


Rotavirus:
Vaste <- Ovariable("Vaste", dependencies = riippuvuudet, formula = funktio, save = TRUE)


{| {{prettytable}}
oprint(Vaste)
|
</rcode>
|Clean
|Medium
|Contaminated
|----
|UV +  Fe filtration
|0
|1.336860829806181e-005
|1.438959377100979e-004
|----
|UV max
|0
|1.334416111711442e-004
|1.412606670134875e-003
|----
|UV normal
|0
|1.311694222826864e-003
|0.01276657203156303
|----
|UV minimum
|0
|0.04438191715513197
|0.2542766105046737
|----
|Double UV
|0
|3.08454761496213e-009
|3.343174792035386e-008
|----
|}


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


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