diff --git a/R/CreateCalibOptions.R b/R/CreateCalibOptions.R
index 8c2cb2e0539d0a78878f7bc72048e0f93e2f598d..8a974aa041ac962a788224c8fb5564b571d41464 100644
--- 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,
-                             +2.50,
-                             +5.00), ncol = 1, byrow = TRUE)
+        ParamTSD <- matrix(c(-9.00,
+                             -7.00,
+                             -5.00), ncol = 1, byrow = TRUE)
         ParamT <- cbind(ParamTSD, ParamT)
       }
       else if (identical(RunModel_LLR, FUN_SD)){
-        ParamTSD <- matrix(c(+1.25, 0,
-                             +2.50, 250,
-                             +5.00, 500), ncol = 2, byrow = TRUE)
+        ParamTSD <- matrix(c(-9.00, -5,
+                             -7.00, 0,
+                             -5.00, +5), ncol = 2, byrow = TRUE)
         ParamT <- cbind(ParamTSD, ParamT)
       }
       else if (identical(RunModel_LBLR, FUN_SD)){
-        ParamTSD <- matrix(c(+1.25, 0,
-                             +2.50, 250,
-                             +5.00, 500), ncol = 2, byrow = TRUE)
+        ParamTSD <- matrix(c(-9.00, -5,
+                             -7.00, 0,
+                             -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)
       }
     }