if (FALSE) {
## housemouse model
morning <- subset(housemouse, occ = c(1,3,5,7,9))
msk <- make.mask((traps(morning)), nx = 32)
morning.h2 <- secr.fit(morning, buffer = 20, model = list(g0~h2), mask = msk,
trace = FALSE)
CVa0(morning.h2 )
}
Run the code above in your browser using DataLab