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