Resolve "Handling correctly initial conditions"

Closes #48 (closed)

R/RunModel.GR.R

@@ -11,6 +11,7 @@ RunModel.GR <- function(x, RunOptions, Param, ...) {
   if (inherits(x, "SD")) {
     # Lag model take one parameter at the beginning of the vector
     iFirstParamRunOffModel <- 2
+    RunOptions$FeatFUN_MOD$NbParam <- RunOptions$FeatFUN_MOD$NbParam - 1
   } else {
     # All parameters
     iFirstParamRunOffModel <- 1