# NOT RUN {
library(airGR)
## transformation Raw -> Transformed for the GR6J model
Xraw <- matrix(c(+221.41, -1.18, +27.11, 1.37, -0.18, +20.09,
+347.23, -0.52, +60.34, 1.76, +0.02, +54.60,
+854.06, +0.52, +148.41, 2.34, +0.22, +148.41),
ncol = 6, byrow = TRUE)
Xtran <- TransfoParam_GR6J(ParamIn = Xraw , Direction = "RT")
## transformation Transformed -> Raw for the GR6J model
Xtran <- matrix(c(+3.60, -1.00, +3.30, -9.10, -0.90, +3.00,
+3.90, -0.50, +4.10, -8.70, +0.10, +4.00,
+4.50, +0.50, +5.00, -8.10, +1.10, +5.00),
ncol = 6, byrow = TRUE)
Xraw <- TransfoParam_GR6J(ParamIn = Xtran, Direction = "TR")
# }
Run the code above in your browser using DataLab