example_TransfoParam_CemaNeige.R 579 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 CemaNeige module
    Xraw  <- matrix( c( 0.19, 1.73,
Delaigue Olivier's avatar
Delaigue Olivier committed
5
6
7
                        0.39, 2.51,
                        0.74, 4.06),
                        ncol=2,byrow=TRUE)
Delaigue Olivier's avatar
Delaigue Olivier committed
8
    Xtran <- TransfoParam_CemaNeige(ParamIn=Xraw ,Direction="RT")
Delaigue Olivier's avatar
Delaigue Olivier committed
9

Delaigue Olivier's avatar
Delaigue Olivier committed
10
## transformation Transformed->Raw for the CemaNeige module
Delaigue Olivier's avatar
Delaigue Olivier committed
11
12
13
14
    Xtran <- matrix( c( -6.26, +0.55,
                        -2.13, +0.92,
                        +4.86, +1.40)
                        ,ncol=2,byrow=TRUE)
Delaigue Olivier's avatar
Delaigue Olivier committed
15
    Xraw  <- TransfoParam_CemaNeige(ParamIn=Xtran,Direction="TR")