|
|
| (Yhtä välissä olevaa versiota samalta käyttäjältä ei näytetä) |
| Rivi 1: |
Rivi 1: |
| [[Luokka:Talousvesi]] | | #REDIRECT [[Vesiopas]] |
| [[Luokka:Vesiopas]]
| |
| {{muuttuja|moderator=Tiinu}}
| |
| [[Luokka:Sisältää R-koodia]]
| |
| | |
| == Kysymys ==
| |
| | |
| Mitkä ovat juomaveden patogeenien annosvasteet?
| |
| | |
| == Vastaus ==
| |
| | |
| <rcode embed=1>
| |
| library(OpasnetUtils)
| |
| | |
| objects.latest("Op_fi2653", code_name = "muuttuja")
| |
| | |
| oprint(AnnosVaste)
| |
| | |
| </rcode>
| |
| | |
| == Perustelut ==
| |
| | |
| === Data ===
| |
| | |
| {| {{prettytable}}
| |
| | Pathogen
| |
| | Referenssi
| |
| |----
| |
| | Kampylobakteeri
| |
| | <ref>Campylobacter (Teunis et al. 2005) Exact Beta-Poisson model Low Dose Approximation:Dose Response relationship for Campylobacter from model fit results presented by Teunis et al. (2005) Epidemiol. Infec. 133, 583-592. </ref>
| |
| |----
| |
| | Rotavirus
| |
| | <ref>Teunis, P. F. M. and Havelaar, A. (2000). "The beta Poisson dose‐response model is not a single hit model."Risk Analysis 20(4): 511‐518. </ref>
| |
| |----
| |
| | Norovirus
| |
| | <ref>Teunis et al. 2008 Norwalk Virus: How Infectious is It? Journal of Medical Virology 80:1468-1476.</ref>
| |
| |----
| |
| | Cryptosporidium
| |
| | <ref>Teunis et al., 2002 Risk Analysis 22(1) 175-183 </ref>
| |
| |----
| |
| | Giardia
| |
| | <ref>Teunis et al., 1996 RIVM report No. 284550002 " The dose-response relation in human volunteers for gastro-intestinal pathogens" </ref>
| |
| |----
| |
| | E.coli O157:H7
| |
| | <ref>Teunis, P., Takumi, K. and Shinagawa, K. (2004). "Dose response for infection by Escherichia coli O157:H7
| |
| from outbreak data." Risk Analysis 24(2): 401‐407.</ref>
| |
| |}
| |
| | |
| | |
| <t2b index = "Patogeeni,Parameter" locations = "Function type,Function,Rname,Unit,Param1,Param2" unit = "-">
| |
| Kampylobakteeri|Beta Poisson approximation|1-(1+Dose/Param2)^-Param1|f.beta.poisson.approx|Ei yksikköä|0.024|0.011
| |
| Rotavirus|Exact beta Poisson|1-exp(-(Param1/(Param1+Param2))*Dose)|f.exact.beta.poisson|Ei yksikköä|0.167|0.191
| |
| Norovirus|Exact beta Poisson|1-exp(-(Param1/(Param1+Param2))*Dose)|f.exact.beta.poisson|Ei yksikköä|0.04|0.055
| |
| Cryptosporidium|Exact beta Poisson|1-exp(-(Param1/(Param1+Param2))*Dose)|f.exact.beta.poisson|Ei yksikköä|0.115|0.176
| |
| Giardia|Exponential|1-exp(-Param1*Dose)|f.exponential|Ei yksikköä|0.0199|0
| |
| E.coli O157:H7|Exact beta Poisson|1-exp(-(Param1/(Param1+Param2))*Dose)|f.exact.beta.poisson|Ei yksikköä|0.157|9.16
| |
| </t2b>
| |
| | |
| === Laskenta ===
| |
| | |
| <rcode
| |
| name="muuttuja"
| |
| label="Alusta muuttuja"
| |
| >
| |
| library(OpasnetUtils)
| |
| | |
| f.exact.beta.poisson <- function(Dose, Param1, Param2, ...) 1 - exp(-(Param1 / (Param1 + Param2)) * Dose)
| |
| f.beta.poisson.approx <- function(Dose, Param1, Param2, ...) 1 - (1 + Dose / Param2)^(-Param1)
| |
| f.exponential <- function(Dose, Param1, ...) 1 - exp(-Param1 * Dose)
| |
| f.alt.exponential <- function(Dose, Param1, Param2, ...) 1 - (1 + (Dose / Param1))^(Param2)
| |
| | |
| AnnosVaste <- Ovariable("AnnosVaste", data = tidy(opbase.data("Op_fi2653")))
| |
| | |
| objects.store(AnnosVaste, f.exact.beta.poisson, f.beta.poisson.approx, f.exponential, f.alt.exponential)
| |
| | |
| cat("Ovariable AnnosVaste ja funktiot f.exact.beta.poisson, f.beta.poisson.approx, f.exponential ja f.alt.exponential tallennettu.\n")
| |
| | |
| oprint(AnnosVaste)
| |
| </rcode>
| |
| | |
| ==Katso myös==
| |
| | |
| * [[Vesiopas]]
| |
| *[[Infektion todennäköisyys per henkilö]]
| |
| * http://wiki.camra.msu.edu/index.php?title=Dose_response_assessment
| |
| * http://wiki.camra.msu.edu/index.php?title=Dose_response_models_for_Giardia
| |
| * http://wiki.camra.msu.edu/index.php?title=Dose_response_models_for_Campylobacter
| |
| * http://wiki.camra.msu.edu/index.php?title=Dose_response_models_for_Cryptosporidium
| |
| * http://wiki.camra.msu.edu/index.php?title=Dose_response_models_for_Rotavirus
| |
| * http://wiki.camra.msu.edu/index.php?title=Dose_response_models_for_Escherichia_coli
| |
| | |
| ==Viitteet==
| |
| | |
| <references/>
| |
| | |
| {{eracedu}}
| |