AICcompatible(secrdemo.0, secrdemo.CL)
if (FALSE) {
## A common application of AICcompatible() is to determine
## the compatibility of models fitted with and without the
## fastproximity option.
ovenCHp1 <- reduce(ovenCHp, by = 'all', outputdetector = 'count')
ob1 <- secr.fit(ovenCHp, buffer = 300, details = list(fastproximity = TRUE))
ob2 <- secr.fit(ovenCHp1, buffer = 300, details = list(fastproximity = FALSE))
ob3 <- secr.fit(ovenCHp1, buffer = 300, details = list(fastproximity = FALSE), binomN = 1)
AICcompatible(ob1,ob2)
AICcompatible(ob1,ob3)
}
Run the code above in your browser using DataLab