# NOT RUN {
data(puechabon)
kasc <- puechabon$kasc
locs <- puechabon$locs
## Computes the home range of the animals
cp <- mcp(locs[,4:5], locs[,1])
area.plot(cp)
## Converts the home range to raster
cprast <- hr.rast(cp, kasc)
image(cprast)
# }
Run the code above in your browser using DataLab