# \donttest{
data(frogs)
pferUMF <- unmarkedFrameOccu(pfer.bin)
#Add some covariates
siteCovs(pferUMF) <- data.frame(cov1=rnorm(numSites(pferUMF)))
#Fit model
(fm <- stan_occu(~1~cov1, pferUMF, chains=3, iter=300))
# }
Run the code above in your browser using DataLab