# NOT RUN {
data(puechabon)
lo<-puechabon$locs[,c("X","Y")]
## Home Range Estimation
res <- clusthr(lo, puechabon$locs$Name)
## gets the vertices
vec <- getverticesclusthr(res)
plot(vec)
image(kver.rast(vec, getkasc(puechabon$kasc,1)))
# }
Run the code above in your browser using DataLab