require (graphics)
data(deermouse)
par(mfrow = c(1,2), mar = c(1,1,4,1))
plot(deermouse.ESG, title = 'Peromyscus data from East Stuart Gulch',
border = 10, gridlines = FALSE, tracks = TRUE)
plot(deermouse.WSG, title = 'Peromyscus data from West Swizer Gulch',
border = 10, gridlines = FALSE, tracks = TRUE)
closure.test(deermouse.ESG, SB = TRUE)
## reveal multiple captures
table(trap(deermouse.ESG), occasion(deermouse.ESG))
table(trap(deermouse.WSG), occasion(deermouse.WSG))
Run the code above in your browser using DataLab