if (FALSE) {
data(puechabonsp)
## The relocations:
locs <- puechabonsp$relocs
locsdf <- as.data.frame(locs)
head(locsdf)
## Shows the relocations
plot(locs, col=as.numeric(locsdf[,1]))
## 12 points seems to be a good choice (rough asymptote for all animals)
## the k-LoCoH method:
nn <- LoCoH.k(locs[,1], k=12)
## Graphical display of the results
plot(nn, border=NA)
## Rasterize the home range on the elevation map:
image(puechabonsp$map)
(oo <- MCHu.rast(nn, puechabonsp$map))
image(oo)
}
Run the code above in your browser using DataLab