# \donttest{
data(issj)
#Note use of km instead of m for distance breaks
jayUMF <- unmarkedFrameDS(y=as.matrix(issj[,1:3]),
siteCovs=issj[,c("elevation","forest")],
dist.breaks=c(0,0.1,0.2,0.3),
unitsIn="km", survey="point")
fm_jay <- stan_distsamp(~1~scale(elevation), jayUMF, chains=3, iter=300)
# }
Run the code above in your browser using DataLab