example_TransfoParam_GR2M.R

require(airGR)

## transformation Raw->Transformed for the GR2M model
    Xraw  <- matrix( c( 221.41, -1.00,
                        347.23, +0.00,
                        854.01, +1.00),
                        ncol=2,byrow=TRUE)
    Xtran <- TransfoParam_GR2M(ParamIn=Xraw ,Direction="RT")

## transformation Transformed->Raw for the GR2M model
    Xtran <- matrix( c( +3.60, -5.00,
                        +3.90, +0.00,
                        +4.50, +5.00),
                        ncol=2,byrow=TRUE)
    Xraw  <- TransfoParam_GR2M(ParamIn=Xtran,Direction="TR")