if (FALSE) {
# fit two detection models
fits <- list.secr.fit (model = c(g0~1, g0~b), constant = list(captdata, trace = FALSE))
AIC(fits)
# alternatively,
fits <- list.secr.fit ('captdata', model = c(g0~1, g0~b), trace = FALSE)
AIC(fits)
# replacing par.derived and par.region.N:
lapply(fits, derived)
lapply(fits, region.N)
}
Run the code above in your browser using DataLab