data(bodmin)
plot(bodmin$poly, asp=1, type="n")
image(kernel2d(as.points(bodmin), bodmin$poly, h0=2, nx=100, ny=100),
add=T, col=terrain.colors(20))
pointmap(as.points(bodmin), add=T)
polymap(bodmin$poly, add=T)Run the code above in your browser using DataLab