# The following is a toy example. I strongly recommend to see
# the package vignettes in order to improve your skills on HBV.IANIGLA
## Routing example
inputMatrix <- cbind(runif(n = 200, max = 100, min = 0), runif(n = 200, max = 50, min = 5),
runif(n = 100, max = 3, min = 1))
routeMod1 <- Routing_HBV(model = 1, lake = TRUE, inputData = inputMatrix,
initCond = c(10, 15, 20), param = c(0.1, 0.05, 0.001, 1, 0.8))
## UH
dischOut <- UH(model = 1, Qg = routeMod1[ , 1], param = 2.2)
Run the code above in your browser using DataLab