From 1efd096ec6026f56b947f6aa238e9599880e9eaa Mon Sep 17 00:00:00 2001
From: unknown <olivier.delaigue@ANPI1430.antony.irstea.priv>
Date: Mon, 31 Oct 2016 15:23:03 +0100
Subject: [PATCH] #4001 Fixed the CemaNeigeGR6J quantiles of parameters
---
R/CreateCalibOptions.R | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/R/CreateCalibOptions.R b/R/CreateCalibOptions.R
index cfac9eac..3e78a2b5 100644
--- a/R/CreateCalibOptions.R
+++ b/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);
--
GitLab