Description Usage Arguments Value Examples
Funzioni per produrre i bollettini quotidiani per una singola stazione per NO2, C6H6, SO2, CO, PM10: estrazione, calcoli, scrittura su DB.
1 2 3 4 5 6 7 8 9 10 | prepare.daily_report(con, id.staz, id.param,
Date=NULL, tstep, ...)
calculate.daily_report(data, id.param,
thr.daily.ave=NULL,
thr.ave8h.max=NULL,
thr.hourly=NULL,
thr.multihourly=NULL,
NH=3)
write.daily_report(con, DR, id.param,
verbose=F, ...)
|
con |
identificativo della connessione al DB (stringa) |
id.staz |
codice numerico identificativo della stazione |
Date |
data per cui si richiede il report. Se lasciata |
data |
dati estratti da |
DR |
lista di |
verbose |
scrive a video alcune informazioni utili per il debug |
... |
parametri opzionali. La funzione |
La funzione calculate.daily_report
restituisce una lista di due oggetti:
daily.report
è un data.frame
di un sola riga con le seguenti colonne (NB i superamenti sono calcolati solo se in input è fornita la corrispondente soglia):
mean.day |
media giornaliera |
max.day |
massima giornaliera |
hour.max.day |
ora del massimo |
max.ave.8h |
massimo della media su 8 ore |
nexc.hourly |
numero di superamenti orari nella giornata |
hourly.nValid |
numero di dati orari validi nella giornata |
cumul.daily.nexc |
numero di superamenti della media giornaliera dall'inizio dell'anno |
cumul.daily.nValid |
numero di dati validi della media giornaliera dall'inizio dell'anno |
cumul.ave8h.nexc |
numero di superamenti del massimo della media su 8 ore dall'inizio dell'anno |
cumul.ave8h.yave |
media del massimo della media su 8 ore dall'inizio dell'anno |
cumul.ave8h.nValid |
numero di massimi giornalieri della media su 8 ore validi dall'inizio dell'anno |
cumul.hourly.nValid |
numero di dati orari validi dall'inizio dell'anno |
cumul.hourly.nexc |
numero di superamenti orari dall'inizio dell'anno |
events
è una lista contenente un data.frame avente colonne start.time
e duration
, contenente gli eventi orari di superamento della soglia
1 2 3 4 5 6 7 8 9 10 | ## Not run:
## report di ieri per Cittadella
day <- format(Sys.Date()-1,format='%Y-%m-%d')
con <- dbqa.connect()
Dat <- prepare.daily_report(con,id.staz="2000003",Date=day)
ODR <- calculate.daily_report(Dat)
dbDisconnect(con)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.