# NOT RUN {
## example, to find the mode of the utilization distribution (UD) of an
## animal:
## load the data
data(puechabon)
loc <- puechabon$locs[, c("X", "Y")]
id <- puechabon$locs[, "Name"]
## Estimation of UD for the four animals
(ud <- kernelUD(loc, id))
image(ud)
## Now consider the UD of Chou
map <- ud$Chou$UD
image(map)
## Find the local maxima:
maxim <- findmaxasc(map)
points(maxim, col="red", pch=16, cex=1.5)
# }
Run the code above in your browser using DataLab