heatmap
Última actualización
id_device <- 'mE1_00004'
start_date <- '2023-10-08 05:00:00'
end_date <- '2023-11-08 00:00:00'
sample_rate <- '1H'
logs <- FALSE
data_type <- 'PROCESSED'
data <- download_data(id_device,start_date,end_date,sample_rate,logs,data_type)
heatmap(data[c('ts','pm10')],'PM10')