diff --git a/R/CreateController.R b/R/CreateController.R
index c1fe654023c6eb57a2ca05916b9c1a0f5ee0a0ff..c443ff18e4a4c7dd9199ab01514652d8cabaef64 100644
--- a/R/CreateController.R
+++ b/R/CreateController.R
@@ -39,10 +39,9 @@
 #' DatesR <- BasinsObs[[1]]$DatesR
 #' PrecipTot <- cbind(sapply(BasinsObs, function(x) {x$precipitation}))
 #' PotEvapTot <- cbind(sapply(BasinsObs, function(x) {x$peti}))
-#' Qobs <- cbind(sapply(BasinsObs, function(x) {x$discharge_spec}))
 #' Precip <- ConvertMeteoSD(griwrm, PrecipTot)
 #' PotEvap <- ConvertMeteoSD(griwrm, PotEvapTot)
-#' InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap, Qobs)
+#' InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap)
 #' sv <- CreateSupervisor(InputsModel)
 #'
 #' # A controller which usually releases 0.1 m3/s and provides
diff --git a/R/CreateSupervisor.R b/R/CreateSupervisor.R
index 5aec3fbeff0a48e79782d0dc6a93dee82718ccab..49470cc72b693e0e692fff22276d7f09aaf7dbd9 100644
--- a/R/CreateSupervisor.R
+++ b/R/CreateSupervisor.R
@@ -23,10 +23,9 @@
 #' DatesR <- BasinsObs[[1]]$DatesR
 #' PrecipTot <- cbind(sapply(BasinsObs, function(x) {x$precipitation}))
 #' PotEvapTot <- cbind(sapply(BasinsObs, function(x) {x$peti}))
-#' Qobs <- cbind(sapply(BasinsObs, function(x) {x$discharge_spec}))
 #' Precip <- ConvertMeteoSD(griwrm, PrecipTot)
 #' PotEvap <- ConvertMeteoSD(griwrm, PotEvapTot)
-#' InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap, Qobs)
+#' InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap)
 #' sv <- CreateSupervisor(InputsModel)
 CreateSupervisor <- function(InputsModel, TimeStep = 1L) {
   if(!inherits(InputsModel, "GRiwrmInputsModel")) {
diff --git a/man/CreateController.Rd b/man/CreateController.Rd
index 75eb2d4ed9bea474d55eee25a575e7aec291e558..c2603f53afe92ef64bab50195d6b2c2313976d3c 100644
--- a/man/CreateController.Rd
+++ b/man/CreateController.Rd
@@ -55,10 +55,9 @@ BasinsObs <- Severn$BasinsObs
 DatesR <- BasinsObs[[1]]$DatesR
 PrecipTot <- cbind(sapply(BasinsObs, function(x) {x$precipitation}))
 PotEvapTot <- cbind(sapply(BasinsObs, function(x) {x$peti}))
-Qobs <- cbind(sapply(BasinsObs, function(x) {x$discharge_spec}))
 Precip <- ConvertMeteoSD(griwrm, PrecipTot)
 PotEvap <- ConvertMeteoSD(griwrm, PotEvapTot)
-InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap, Qobs)
+InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap)
 sv <- CreateSupervisor(InputsModel)
 
 # A controller which usually releases 0.1 m3/s and provides
diff --git a/man/CreateSupervisor.Rd b/man/CreateSupervisor.Rd
index e3c95b7cb3b51c78b61d2eadeba5c1f823ca0e3c..c04acb07c27ce36397a22fca163f814ee573141e 100644
--- a/man/CreateSupervisor.Rd
+++ b/man/CreateSupervisor.Rd
@@ -36,9 +36,8 @@ BasinsObs <- Severn$BasinsObs
 DatesR <- BasinsObs[[1]]$DatesR
 PrecipTot <- cbind(sapply(BasinsObs, function(x) {x$precipitation}))
 PotEvapTot <- cbind(sapply(BasinsObs, function(x) {x$peti}))
-Qobs <- cbind(sapply(BasinsObs, function(x) {x$discharge_spec}))
 Precip <- ConvertMeteoSD(griwrm, PrecipTot)
 PotEvap <- ConvertMeteoSD(griwrm, PotEvapTot)
-InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap, Qobs)
+InputsModel <- CreateInputsModel(griwrm, DatesR, Precip, PotEvap)
 sv <- CreateSupervisor(InputsModel)
 }