if (require(maptools, quiet = TRUE) & require(spdep, quiet = TRUE)) {
data(mafragh)
maf.listw <- nb2listw(neig2nb(mafragh$neig))
maf.pca <- dudi.pca(mafragh$mil, scannf = FALSE)
multispati.rtest(maf.pca, maf.listw)
maf.pca.ms <- multispati(maf.pca, maf.listw, scannf=FALSE)
plot(maf.pca.ms)
}
Run the code above in your browser using DataLab