library(lubridate) library(sf) library(dplyr) library(tidyr) # Load smokePM predictions on smoke days preds = readRDS("./final/10km_grid/smokePM2pt5_predictions_daily ...