# NOT RUN {
data(rangedata)
range_shuffle_rnd <- range_shuffle(x=rangedata,boundary = 'hh',
interval = 200, var = NULL,
sites = seq(600,2400,200),
reps =10,degen = FALSE)
range_shuffle_rnd
plot(range_shuffle_rnd$mean,ylab = "Species Richness",pch = 19)
# }
Run the code above in your browser using DataLab