Description Usage Arguments Details Value Author(s) See Also Examples
Evaluation of timepoints with the detection algorithms used by the RKI
1 2 3 4 5 6 7 | algo.rkiLatestTimepoint(disProgObj, timePoint = NULL,
control = list(b = 2, w = 4, actY = FALSE))
algo.rki(disProgObj, control = list(range = range,
b = 2, w = 4, actY = FALSE))
algo.rki1(disProgObj, control = list(range = range))
algo.rki2(disProgObj, control = list(range = range))
algo.rki3(disProgObj, control = list(range = range))
|
disProgObj |
object of class disProg (including the observed and the state chain). |
timePoint |
time point which shoud be evaluated in |
control |
control object: |
Using the reference values for calculating an upper limit (threshold),
alarm is given if the actual value is bigger than a computed threshold.
algo.rki
calls algo.rkiLatestTimepoint
for the values specified
in range
and for the system specified in control
.
algo.rki1
calls algo.rkiLatestTimepoint
for the values specified
in range
for the RKI 1 system.
algo.rki2
calls algo.rkiLatestTimepoint
for the values specified
in range
for the RKI 2 system.
algo.rki3
calls algo.rkiLatestTimepoint
for the values specified
in range
for the RKI 3 system.
"RKI 1"
reference values from 6 weeks ago
"RKI 2"
reference values from 6 weeks ago and
13 weeks of the year ago (symmetrical around the
comparable week).
"RKI 3"
18 reference values. 9 from the year ago
and 9 from two years ago (also symmetrical around the
comparable week).
survRes |
|
M. Höhle, A. Riebler, Christian Lang
algo.bayesLatestTimepoint
and algo.bayes
for
the Bayes system.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | # Create a test object
disProgObj <- sim.pointSource(p = 0.99, r = 0.5, length = 208, A = 1,
alpha = 1, beta = 0, phi = 0,
frequency = 1, state = NULL, K = 1.7)
# Test week 200 to 208 for outbreaks with a selfdefined rki
algo.rki(disProgObj, control = list(range = 200:208, b = 1,
w = 5, actY = TRUE))
# The same for rki 1 to rki 3
algo.rki1(disProgObj, control = list(range = 200:208))
algo.rki2(disProgObj, control = list(range = 200:208))
algo.rki3(disProgObj, control = list(range = 200:208))
# Test for rki 1 the latest timepoint
algo.rkiLatestTimepoint(disProgObj)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.