data(puechabon)
# locs is the data frame containing the
# relocations of wild boars monitored by radio-tracking
locs <- puechabon$locs
# sa is the "kasc" object of maps of the study area
sa <- puechabon$kasc
# Buffer of 500 m around all relocations
bu <- buffer(locs[,4:5], sa, 500)
image(bu)
# displays all the pixels of the study area within 500 m
# of a relocation of each monitored wild boar
buani <- buffer.ani(locs[,4:5], locs[,1], sa, 500)
image(buani)
## buffer around a trajectory
data(puechcirc)
uu <- getburst(puechcirc, burst = "CH930824")
w <- ascgen(uu[,c("x","y")], nrcol = 100)
out <- buffer.line(uu[,c("x","y")], w, 100)
image(out)
plot(uu, asc = out)
Run the code above in your browser using DataLab