fix(docs): issue with the restriction on Qobs

Refs #95

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

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")) {

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

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)
 }