# NOT RUN {
library(dggridR)
data(dgquakes)
#Construct a grid with cells about ~1000 miles wide
dggs <- dgconstruct(spacing=1000,metric=FALSE)
dgquakes$cell <- dgtransform(dggs,dgquakes$lat,dgquakes$lon)
# }
Run the code above in your browser using DataLab