if (FALSE) {
# create an hydro-met station
hm_guido <- hm_create(class_name = 'station')
# assign altitude
hm_guido <- hm_set(obj = hm_guido, alt = 2480)
# now we read streamflow - water height measurements
path_file <- system.file('extdata', 'snih_hq_guido.xlsx',
package = 'hydrotoolbox')
guido_hq <- read_snih(path = path_file, by = 'none',
out_name = c('h(m)', 'q(m3/s)',
'q_coarse_solid(kg/s)',
'q_fine_solid(kg/s)') )
# set the new data frame
# note: you can do it manually but using the hm_build() method
# is stromgly recommended
hm_guido <- hm_set(obj = hm_guido, hq = guido_hq)
hm_show(obj = hm_guido)
}
Run the code above in your browser using DataLab