# NOT RUN {
# generate 100 X-Y coordinates for a distance-based ILM
x <- runif(100, 0, 10)
y <- runif(100, 0, 10)
# suppose we know the infection times for a spatial SI model based on above X-Y coordinates
inftime <- rpois(100, 8)
# Now we can convert above information to an epidata object with
out <- as.epidata(type = "SI", n = 100, x = x, y = y, inftime = inftime )
out
# }
Run the code above in your browser using DataLab