data(buech)
if(adegraphicsLoaded()) {
if(requireNamespace("sp", quietly = TRUE)) {
g1 <- s.label(buech$xy, Sp = buech$Spatial, nb = buech$nb,
pSp.col = "transparent", plot = FALSE)
g2 <- s.value(buech$xy, buech$tab2$Suspens - buech$tab1$Suspens,
Sp = buech$Spatial, nb = buech$nb, pSp.col = "transparent", plot = FALSE)
G <- cbindADEg(g1, g2, plot = TRUE)
}
}
Run the code above in your browser using DataLab