## 25 4-detector clusters
mini <- make.grid(nx = 2, ny = 2)
tempgrid <- trap.builder (cluster = mini , method = "all",
frame = expand.grid(x = seq(100, 500, 100), y = seq(100,
500, 100)))
clusterID(tempgrid)
clustertrap(tempgrid)
tempCH <- sim.capthist(tempgrid)
table(clusterID(tempCH)) ## detections per cluster
cluster.counts(tempCH) ## distinct individuals
Run the code above in your browser using DataLab