# NOT RUN {
data(iberolacerta.clade)
data(euro.worldclim)
cyreni <- iberolacerta.clade$species$cyreni
aranica <- iberolacerta.clade$species$aranica
# We're just going to fudge together occurrence data from a ribbon here
# from random points between the two species' ranges
p <- data.frame(Longitude = runif(50, -4, -2), Latitude = runif(50, 40, 43))
bg <- background.points.buffer(p, 100000, 100, euro.worldclim[[1]])
ribbon <- enmtools.species(species.name = "ribbon", presence.points = p, background.points = bg)
rangebreak.ribbon(cyreni, aranica, ribbon = ribbon, env = euro.worldclim,
type = "glm", f= pres ~ bio1 + bio12, nreps = 10)
# }
Run the code above in your browser using DataLab