glymepop <- sim.linearpopn(glymemask, 30)
plot(glymepop, jitter=1)
CH <- sim.capthist(traps(arvicola), glymepop, detectpar = list(g0 = 0.4,
sigma = 40), noccasions = 6, userdist = networkdistance)
plot(glymemask)
plot(CH, add = TRUE, tracks = TRUE)
Run the code above in your browser using DataLab