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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
Ei muokkausyhteenvetoa
 
(15 välissä olevaa versiota 5 käyttäjän tekeminä ei näytetä)
Rivi 1: Rivi 1:
{{muuttuja|moderator=Päivi Meriläinen}}
{{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(
<anacode>Dose_response(Pathogen_exposure)</anacode>
Name = c("Altistuminen", "AnnosVaste"),
 
Ident = c("Op_fi2669/muuttuja", "Op_fi2653/muuttuja")
== Tulokset ==
)
 
Norovirus:
{| {{prettytable}}
|
|Clean
|Medium
|Contaminated
|----
|UV max +  Fe filtration
|0
|2.610 e-08
|2.769 e-07
|----
|UV normal +  Fe filtration
|0
|1.248 e-06
|1.330 e-05
|----
|UV minimum +  Fe filtration
|0
|1.082 e-03
|0.011
|----
|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
|----
|}
 
 
 
Rotavirus:
 
{| {{prettytable}}
|
|Clean
|Medium
|Contaminated
|----
|UV max +  Fe filtration
|0
|6.0167e-08
|6.383 e-07
|----
|UV normal +  Fe filtration
|0
|2.490 e-06
|2.646 e-05
|----
|UV minimum +  Fe filtration
|0
|1.671 e-03
|0.017
|----
|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
|----
|}
 
 
Murine norovirus:
 
{| {{prettytable}}
|
|Clean
|Medium
|Contaminated
|----
|UV max +  Fe filtration
|0
|2.290 e-010
|2.415 e-09
|----
|UV normal +  Fe filtration
|0
|2.814 e-08
|2.997 e-07
|----
|UV minimum +  Fe filtration
|0
|1.283 e-04
|1.365 e-03
|----
|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
|----
|}
 
 
== R Koodi ==
<rcode>
 
#laskee todennakoisyyden infectiolle
library(OpasnetUtils)
library(xtable)
riippuvuudet = data.frame(
Name = c("Exposure", "PatAnnVas"),
Key = c("QNnIaqKhV4vTERmt", "9zM0IyzGiLkO7WiY")
)
funktio = function(dependencies){
funktio <- function(...){
ComputeDependencies(dependencies)
out <- merge(AnnosVaste, Altistuminen, all = FALSE)
out = merge(PatAnnVas,Exposure)
attach(out@output)
attach(out@output)
for(i in 1:nrow(out@output)){
for(i in 1:nrow(out@output)){
out@output$Result[i] = get(as.character(Rname[i]))(ExposureResult[i],Param1[i],Param2[i])
out@output$Result[i] = get(as.character(Rname[i]))(AltistuminenResult[i],Param1[i],Param2[i])
}
}
detach("out@output")
detach("out@output")
return(out@output[, !colnames(out@output) %in% "out"])
return(out@output[, !colnames(out@output) %in% "out"])
}
}
ExpoPatAnn <- new("ovariable",
 
name        = "ExpoPatAnn",
Vaste <- Ovariable("Vaste", dependencies = riippuvuudet, formula = funktio, save = TRUE)
dependencies = riippuvuudet,
 
formula     = funktio
oprint(Vaste)
)
objects.put(ExpoPatAnn)
print(xtable(EvalOutput(ExpoPatAnn)@output),type = "html")
cat("Muuttuja alustettu. Kopioi sivun osoitteen avain talteen käyttöä varten.\n")
</rcode>
</rcode>
== Katso myös ==
== Katso myös ==
 
*[[Vesiopas]]
   
   
== Viitteet ==
== Viitteet ==


Rivi 198: Rivi 50:


<references/>
<references/>
[[Luokka:Juomavesi]]
[[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

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Infektion_todennäköisyys_per_henkilö&oldid=35775”