data("fooepidata")
s <- summary(fooepidata)
s # uses the print method for summary.epidata
names(s) # components of the list 's'
# positions of the individuals
plot(s$coordinates)
# events by id
head(s$byID)
Run the code above in your browser using DataLab