## '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