# NOT RUN {
library(dplyr)
# Returns a 100x100 grid of record count of intersections of eruptions and waiting
faithful %>%
db_compute_raster(eruptions, waiting)
# Returns a 50x50 grid of eruption averages of intersections of eruptions and waiting
faithful %>%
db_compute_raster(eruptions, waiting, fill = mean(eruptions), resolution = 50)
# }
Run the code above in your browser using DataLab