An error occurred while loading the file. Please try again.
-
Dorchies David authored
Refs #15
fce44aa0
#' Create \emph{GRiwrmRunOptions} object for running and calibrating model in GR-IWRM.
#'
#' @param InputsModel object of class \emph{GRiwrmInputsModel}, see \code{\link{CreateInputsModel.GRiwrm}} for details.
#' @param ... further arguments passed to \code{\link[airGR]{CreateOptions}}.
#'
#' @return \emph{GRiwrmRunOptions} object for running and calibrating model in GR-IWRM.
#' @export
CreateRunOptions.GRiwrmInputsModel <- function(InputsModels, ...) {
RunOptions <- list()
class(RunOptions) <- append(class(RunOptions), "GRiwrmRunOptions")
for(InputsModelBasin in InputsModels) {
RunOptions[[InputsModelBasin$id]] <- CreateRunOptions(InputsModel = InputsModelBasin, ...)
}
return(RunOptions)
}