Description Usage Format References Examples
Data extracted from Hughes et al. (1997). Data obtained from a field experiment as the spatial dynamics of tomato spotted wilt virus (tswv).
1 |
A data frame with following variables
X coordinate
Y coordinate
Infection times
Times at which individuals are removed
Hughes, G., McRoberts,N., Madden, L.V., Nelson, S. C. (1997). Validating mathematical models of plant disease progress in space and time. IMA Journal of Mathematics Applied in Medicine and Biology, 14, 85-112.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | data("tswv")
x <- tswv$x
y <- tswv$y
inftime <- tswv$inftime
removaltime <- tswv$removaltime
infperiod <- rep(3, length(x))
# change to epilate object
epidat.tswv <- as.epidata(type = "SIR", n = 520, x = x, y = y,
inftime = inftime, infperiod = infperiod)
# plot
plot(epidat.tswv, plottype = "spatial", tmin = 2)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.