library(sp)
library(raster)
data(meuse)
coordinates(meuse) <- ~x+y
meuse.kde <- kde2D(meuse, bw = 1000, n = 500, standardize = TRUE)
plot(meuse.kde$kde)
plot(meuse, pch=20, cex=0.75, col="red", add=TRUE)
Run the code above in your browser using DataLab