# \donttest{
data(frogs)
umf <- formatMult(masspcru)
umf@y[umf@y > 1] <- 1 #convert counts to presence/absence
umf <- umf[1:100,] #Use only 100 sites
fit_frog <- stan_colext(~1, ~1, ~1, ~1, umf, chains=3, iter=300)
# }
Run the code above in your browser using DataLab