# NOT RUN {
ws_monitor <- monitor_subset(
Northwest_Megafires,
monitorIDs = c('530470009_01', '530470010_01')
)
ws_monTidy <- monitor_toTidy(ws_monitor)
ws_monMon <- tidy_toMonitor(ws_monTidy)
head(ws_monMon$data)
head(ws_monitor$data)
# }
Run the code above in your browser using DataLab