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