plot(hornedlizardCH, tracks = TRUE, varycol = FALSE,
lab1 = TRUE, laboff = 6, border = 10, title =
"Flat-tailed Horned Lizards (Royle & Young 2008)")
table(table(animalID(hornedlizardCH)))
traps(hornedlizardCH)
## show first few x-y coordinates
head(xy(hornedlizardCH))
## Compare default (Poisson) and binomial models for number
## caught
FTHL.fit <- secr.fit(hornedlizardCH)
FTHLbn.fit <- secr.fit(hornedlizardCH, details =
list(distribution = "binomial"))
collate(FTHL.fit, FTHLbn.fit)[,,,"D"]
## Collapse occasions (does not run faster)
hornedlizardCH.14 <- reduce(hornedlizardCH, newoccasions =
list(1:14), outputdetector = "polygon")
FTHL14.fit <- secr.fit(hornedlizardCH.14, binomN = 14)
Run the code above in your browser using DataLab