example_TransfoParam.R 700 Bytes
Newer Older
Delaigue Olivier's avatar
Delaigue Olivier committed
1
2
require(airGR)

Delaigue Olivier's avatar
Delaigue Olivier committed
3
4
## transformation Raw->Transformed for the GR4J model
    Xraw  <- matrix( c( 221.41, -3.63,  30.00, 1.37,
Delaigue Olivier's avatar
Delaigue Olivier committed
5
6
7
                        347.23, -1.03,  60.34, 1.76,
                        854.06, -0.10, 148.41, 2.34),
                        ncol=4,byrow=TRUE)
Delaigue Olivier's avatar
Delaigue Olivier committed
8
    Xtran <- TransfoParam(ParamIn=Xraw ,Direction="RT",FUN_TRANSFO=TransfoParam_GR4J)
Delaigue Olivier's avatar
Delaigue Olivier committed
9

Delaigue Olivier's avatar
Delaigue Olivier committed
10
## transformation Transformed->Raw for the GR4J model
Delaigue Olivier's avatar
Delaigue Olivier committed
11
12
13
14
    Xtran <- matrix( c( +3.60, -2.00, +3.40, -9.10,
                        +3.90, -0.90, +4.10, -8.70,
                        +4.50, -0.10, +5.00, -8.10),
                        ncol=4,byrow=TRUE)
Delaigue Olivier's avatar
Delaigue Olivier committed
15
    Xraw  <- TransfoParam(ParamIn=Xtran,Direction="TR",FUN_TRANSFO=TransfoParam_GR4J)