From 26d8c48689097fec1a2da0a3271afd9f9e397977 Mon Sep 17 00:00:00 2001 From: David <david.dorchies@inrae.fr> Date: Sun, 23 Oct 2022 18:22:44 +0200 Subject: [PATCH] fix(docs): issue with the restriction on Qobs Refs #95 --- R/CreateController.R | 3 +-- R/CreateSupervisor.R | 3 +-- man/CreateController.Rd | 3 +-- man/CreateSupervisor.Rd | 3 +-- 4 files changed, 4 insertions(+), 8 deletions(-) diff --git a/R/CreateController.R b/R/CreateController.R index c1fe654..c443ff1 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 5aec3fb..49470cc 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 75eb2d4..c2603f5 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 e3c95b7..c04acb0 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) } -- GitLab