#4001 Fixed the CemaNeigeGR6J quantiles of parameters

R/CreateCalibOptions.R

@@ -130,9 +130,9 @@ CreateCalibOptions <- function(FUN_MOD, FUN_CALIB = Calibration_Michel, FUN_TRAN
                              +5.55, -0.46, +3.75, -9.09, -4.69, -9.14, +6.90,
                              +6.10, -0.11, +4.43, -8.60, -0.66, +4.10, +7.21),ncol=NParam,byrow=TRUE); }
       if("CemaNeigeGR6J"%in% ObjectClass){ 
-        ParamT <- matrix( c( +3.60, -1.00, +3.30, -9.10, -0.90, +3.00, -6.26, +0.55,
-                             +3.90, -0.50, +4.10, -8.70, +0.10, +4.00, -2.13, +0.92,
-                             +4.50, +0.50, +5.00, -8.10, +1.10, +5.00, +4.86, +1.40),ncol=NParam,byrow=TRUE); }
+        ParamT <- matrix( c( +3.60, -1.00, +3.30, -9.10, -0.90, +3.00, -9.96, +6.63,
+                             +3.90, -0.50, +4.10, -8.70, +0.10, +4.00, -9.14, +6.90,
+                             +4.50, +0.50, +5.00, -8.10, +1.10, +5.00, +4.10, +7.21),ncol=NParam,byrow=TRUE); }
 
       StartParamList    <- NULL;
       StartParamDistrib <- TransfoParam(ParamIn=ParamT,Direction="TR",FUN_TRANSFO=FUN_TRANSFO);