plot(housemouse, title = paste("Coulombe (1965), Mus musculus,",
"California salt marsh"), border = 5, rad = 0.5,
gridlines = FALSE)
morning <- subset(housemouse, occ = c(1,3,5,7,9))
summary(morning)
## drop 2 unknown-sex mice
known.sex <- subset(housemouse, !is.na(covariates(housemouse)$sex))
## reveal multiple captures
table(trap(housemouse), occasion(housemouse))
AIC(morning.0, morning.b, morning.t, morning.h2, morning.0h2, morning.h2h2)
## assess need to distinguish morning and afternoon samples
housemouse.0 <- secr.fit (housemouse, buffer = 20)
housemouse.ampm <- secr.fit (housemouse, model = g0~tcov, buffer = 20,
timecov = c(0,1,0,1,0,1,0,1,0,1))
AIC(housemouse.0, housemouse.ampm)
Run the code above in your browser using DataLab