data(buech)
par(mfrow = c(1,2))
s.label(buech$xy, contour = buech$contour, neig = buech$neig)
s.value (buech$xy, buech$tab2$Suspens-buech$tab1$Suspens,
contour = buech$contour, neig = buech$neig, csi = 3)
par(mfrow = c(1,1))
Run the code above in your browser using DataLab