with(earthquakes, spoints(lon, lat, mag, main = "Earthquake data"))
bin <- binning(earthquakes[, c("lon", "lat")], earthquakes$mag, nbin = c(30,30), set.NA = TRUE)
simage(bin, main = "Binning averages")
with(earthquakes, points(lon, lat, pch = 20))
Run the code above in your browser using DataLab