# NOT RUN {
data(puechabon)
## gets the aspect in an asc object
asp <- getkasc(puechabon$kasc, "Aspect")
## creates the vector of colors
cl <- colasc(asp, NorthEast = "blue", SouthEast = "red",
SouthWest = "orange", NorthWest = "green")
## graphical display
image(asp, clfac = cl, main = "Aspect", xlab = "Lambert X",
ylab = "Lambert Y")
legend(706500, 3162000, legend=levels(asp), fill = cl, cex = 0.7)
# }
Run the code above in your browser using DataLab