algo.quality(survResObj, penalty = 20)
penalty
timepoints were
chosen, to provide an upper bound on the penalty for not discovering an outbreak. Now the difference between the first alarm by the system and the defined beginning is denoted ``the lag'' Additionally outbreaks found by the system are not
punished. At the end, the mean of the lags for every outbreak chain is returned
as summary lag.algo.compare
# Create a test object
disProgObj <- sim.pointSource(p = 0.99, r = 0.5, length = 200, A = 1,
alpha = 1, beta = 0, phi = 0,
frequency = 1, state = NULL, K = 1.7)
# Let this object be tested from rki1
survResObj <- algo.rki1(disProgObj, control = list(range = 50:200))
# Compute the quality values
algo.quality(survResObj)
Run the code above in your browser using DataLab