# NOT RUN {
data(puechabon)
locs <- puechabon$locs
cp <- mcp(locs[,4:5], locs[,1])
## Plot the home ranges
opar <- par(mar = c(0,0,0,0))
area.plot(cp)
## ... And the relocations
points(locs[,4:5], pch = 16, col = as.numeric(locs[,1]))
par(opar)
## Computation of the home-range size:
cuicui1 <- mcp.area(locs[,4:5], locs[,1])
plot(cuicui1)
# }
Run the code above in your browser using DataLab