data(eberg)
coordinates(eberg) <- ~X+Y
proj4string(eberg) <- CRS("+init=epsg:31467")
# add metadata:
eberg.md <- spMetadata(eberg, xml.file=system.file("eberg.xml", package="plotKML"),
Target_variable="SAND")
GetPalette(eberg.md)
x <- summary(eberg.md)
View(x)
Run the code above in your browser using DataLab