# \donttest{
x_coords <- runif(100, -100, 100)
y_coords <- runif(100, -50, 50)
values <- rnorm(100, mean = 10, sd = 5)
rasterize_data(x_coords, y_coords, values,
cell_size = 5000, crs = "EPSG:3857", fun = mean)
# }
Run the code above in your browser using DataLab