# NOT RUN {
## `captdata' is a demonstration dataset
animalID(captdata)
temp <- sim.capthist(popn = list(D = 1), make.grid(detector
= "count"))
cbind(ID = as.numeric(animalID(temp)), occ = occasion(temp),
trap = trap(temp))
# }
Run the code above in your browser using DataLab