## Not run: ------------------------------------
# tmp <- secr.test(ovenbird.model.1)
# if (inherits(tmp, 'secrtest')) {
# tmp ## terse print
# print(tmp, terse = FALSE)
# par(mfrow = c(1,5))
# plot(tmp, main = '', xlim=c(0,1), breaks=seq(0,1,0.05))
# par(mfrow = c(1,1)) ## reset to default
# }
## ---------------------------------------------
Run the code above in your browser using DataLab