refactor(CreateCalibOptions): adjust screening for all routing models

Refs HYCAR-Hydro/airgr#152, HYCAR-Hydro/airgr#153

refactor(CreateCalibOptions): adjust screening for all routing models
Refs HYCAR-Hydro/airgr#152, HYCAR-Hydro/airgr#153
6e4e1a1a · Dorchies David · 898a459a · 6e4e1a1a
Commit 6e4e1a1a authored 2 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 14 additions and 9 deletions
+14 -9
--- a/R/CreateCalibOptions.R
+++ b/R/CreateCalibOptions.R
@@ -202,21 +202,26 @@ CreateCalibOptions <- function(FUN_MOD,
    }
    if (IsSD) {
      if (identical(RunModel_Lag, FUN_SD)){
-        ParamTSD <- matrix(c(+1.25,
+        ParamTSD <- matrix(c(-9.00,
-                             +2.50,
+                             -7.00,
-                             +5.00), ncol = 1, byrow = TRUE)
+                             -5.00), ncol = 1, byrow = TRUE)
        ParamT <- cbind(ParamTSD, ParamT)
      }
      else if (identical(RunModel_LLR, FUN_SD)){
-        ParamTSD <- matrix(c(+1.25, 0,
+        ParamTSD <- matrix(c(-9.00, -5,
-                             +2.50, 250,
+                             -7.00, 0,
-                             +5.00, 500), ncol = 2, byrow = TRUE)
+                             -5.00, +5), ncol = 2, byrow = TRUE)
        ParamT <- cbind(ParamTSD, ParamT)
      }
      else if (identical(RunModel_LBLR, FUN_SD)){
-        ParamTSD <- matrix(c(+1.25, 0,
+        ParamTSD <- matrix(c(-9.00, -5,
-                             +2.50, 250,
+                             -7.00, 0,
-                             +5.00, 500), ncol = 2, byrow = TRUE)
+                             -5.00, +5), ncol = 2, byrow = TRUE)
+        ParamT <- cbind(ParamTSD, ParamT)
+      } else if (identical(RunModel_LRQ, FUN_SD)){
+        ParamTSD <- matrix(c(-9.00, -5,
+                            -7.00, 0,
+                            -5.00, +5), ncol = 2, byrow = TRUE)
        ParamT <- cbind(ParamTSD, ParamT)
      }
    }