# presence/absence tables for longhorn beetles of South Europe
data(ceram.s)
# spatial coordinates of territories in South Europe
data(coords.s)
# dissimilarity matrix
ceram.s.sim<-beta.pair(ceram.s)$beta.sim
# spatial distances in km
distgeo.s<-dist(coords.s[,1:2])
# Negative exponential model for the decay of similarity with spatial distance
decay.south<-decay.model(y=1-ceram.s.sim, x=distgeo.s, y.type="sim", model.type="exp")
# Site-block bootstrap
boot.coefs.decay(decay.south, resamples=100)
Run the code above in your browser using DataLab