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