# read guido daily streamflow records
path <- system.file('extdata', 'snih_qd_guido.xlsx',
package = 'hydrotoolbox')
# read, aggregate the function to monthly resolution and get the volume
qm_guido <-
read_snih(path = path, by = 'day', out_name = 'q(m3/s)') %>%
agg_table(col_name = 'q(m3/s)', fun = 'mean', period = 'monthly',
out_name = 'qm(m3/s)') %>%
qm_vol(col_name = 'qm(m3/s)', out_name = 'vm(hm3)')
Run the code above in your browser using DataLab