# NOT RUN {
if(require("ade4", quietly = TRUE)){
data(mafragh, package = "ade4")
pol2 <- orthobasis.poly(mafragh$Spatial)
if(require("adegraphics", quietly = TRUE)){
plot(pol2, mafragh$Spatial)
}
}
# }
Run the code above in your browser using DataLab