# NOT RUN {
## Example : spatial SI model
# generate 100 individuals
x <- runif(100, 0, 10)
y <- runif(100, 0, 10)
covariate <- runif(100, 0, 2)
out1 <- epidata(type = "SI",n = 100, Sformula = ~covariate, tmax = 15,
sus.par = c(0.1, 0.3), beta = 5.0, x = x, y = y)
# Plots of epidemic progression
plot(out1, plottype = "spatial")
plot(out1, plottype = "curve", curvetype = "newinfect")
# }
Run the code above in your browser using DataLab