data(toves)
str(toves)
# Extract detection histories
DH <- toves[, 1:4]
# Fit some models
m.1 <- occSS(DH, psi ~ x1, data=toves)
m.12 <- occSS(DH, psi ~ x1 + x2, data=toves)
m.13 <- occSS(DH, psi ~ x1 + x3, data=toves)
m.123 <- occSS(DH, psi ~ x1 + x2 + x3, data=toves)
m.23 <- occSS(DH, psi ~ x2 + x3, data=toves)
AICtable(AIC(m.1, m.12, m.13, m.123, m.23))
Run the code above in your browser using DataLab