# \donttest{
data(birds)
woodthrushUMF <- unmarkedFrameOccu(woodthrush.bin)
#Add a site covariate
siteCovs(woodthrushUMF) <- data.frame(cov1=rnorm(numSites(woodthrushUMF)))
(fm_wood <- stan_occuRN(~1~cov1, woodthrushUMF, chains=3, iter=300))
# }
Run the code above in your browser using DataLab