Tinto and Odiel estuary geochemistry
This data set contains informations about geochemical characteristics of heavy metal pollution in surface sediments of the Tinto and Odiel river estuary (south-western Spain).
data(tintoodiel)
tintoodiel is a list with the following components:
a data frame that contains spatial coordinates of the 52 sites
a data frame with 12 columns (concentration of heavy metals) and 52 rows (sites)
an object of class neig
the neighbourhood graph of the 52 sites (an object of class nb)
Borrego, J., Morales, J.A., de la Torre, M.L. and Grande, J.A. (2002) Geochemical characteristics of heavy metal pollution in surface sediments of the Tinto and Odiel river estuary (south-western Spain). Environmental Geology, 41, 785–796.
data(tintoodiel)
if(!adegraphicsLoaded()) {
## Not run:
if(requireNamespace("pixmap", quietly = TRUE)) {
estuary.pnm <- pixmap::read.pnm(system.file("pictures/tintoodiel.pnm", package = "ade4"))
s.label(tintoodiel$xy, pixmap = estuary.pnm, neig = tintoodiel$neig,
clab = 0, cpoi = 2, cneig = 3, addax = FALSE, cgrid = 0, grid = FALSE)
}
## End(Not run)
estuary.pca <- dudi.pca(tintoodiel$tab, scan = FALSE, nf = 4)
if(requireNamespace("spdep", quietly = TRUE)) {
estuary.listw <- spdep::nb2listw(neig2nb(tintoodiel$neig))
estuary.pca.ms <- multispati(estuary.pca, estuary.listw, scan = FALSE, nfposi = 3, nfnega = 2)
summary(estuary.pca.ms)
par(mfrow = c(1, 2))
barplot(estuary.pca$eig)
barplot(estuary.pca.ms$eig)
par(mfrow = c(1, 1))
}}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.