# NOT RUN {
data(cs_spp, cs_space)
# generate species points
species.points <- randomPoints(cs_spp[[1]], n=100, prob=TRUE)
env.points <- extract(cs_space, species.points)
# generate demand points for a 1d space using ks
dps1 <- make.DemandPoints(
points=env.points[,1],
kernel.method='ks'
)
# generate demand points for a 2d space using hypervolume
dps2 <- make.DemandPoints(
points=env.points,
kernel.method='hypervolume'
)
# }
Run the code above in your browser using DataLab