# read guido daily streamflow records
path <- system.file('extdata', 'snih_qd_guido.xlsx',
package = 'hydrotoolbox')
# load raw data
qd_guido <-
read_snih(path = path, by = 'day', out_name = 'q(m3/s)') %>%
mov_avg(k = 5, out_name = 'q_smooth')
# get the data report
qd_guido %>%
report_miss()
Run the code above in your browser using DataLab