# NOT RUN {
data(puechcirc)
plot(puechcirc)
plot(puechcirc, perani = FALSE)
plot(puechcirc, id = "JE93", perani = FALSE)
data(puechabon)
ele <- getkasc(puechabon$kasc, "Elevation")
plot(puechcirc, perani = FALSE, asc = ele)
cont <- getcontour(ele)
plot(puechcirc, area = cont)
# }
Run the code above in your browser using DataLab