## Not run: ------------------------------------
#
# fit0 <- list(capthist = 'captdata', model = g0~1)
# fitb <- list(capthist = 'captdata', model = g0~b)
# fits <- par.secr.fit (c('fit0','fitb'), ncores = 2)
# AIC(fits)
#
# par.derived(fits, ncores = 2, se.esa = FALSE)
#
# par.region.N(fits, ncores = 2)
#
## ---------------------------------------------
Run the code above in your browser using DataLab