example_TransfoParam_GR1A.R 524 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 GR1A model
    Xraw  <- matrix( c(  0.625,
Delaigue Olivier's avatar
Delaigue Olivier committed
5
6
7
                         1.250,
                         1.875),
                        ncol=1,byrow=TRUE)
Delaigue Olivier's avatar
Delaigue Olivier committed
8
    Xtran <- TransfoParam_GR1A(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 GR1A model
Delaigue Olivier's avatar
Delaigue Olivier committed
11
12
13
14
    Xtran <- matrix( c( -5.00,
                        +0.00,
                        +5.00),
                        ncol=1,byrow=TRUE)
Delaigue Olivier's avatar
Delaigue Olivier committed
15
    Xraw  <- TransfoParam_GR1A(ParamIn=Xtran,Direction="TR")