##modified example of single-season model with heterogeneity from ?occuRN
require(unmarked)
data(birds)
woodthrushUMF <- unmarkedFrameOccu(woodthrush.bin)
##survey occasion-specific detection probabilities
fm.wood.rn <- occuRN(~ obsNum ~ 1, woodthrushUMF)
##extract log-likelihood
extract.LL.unmarked(fm.wood.rn)
detach(package:unmarked)
Run the code above in your browser using DataLab