+ 30
− 11
@@ -11,9 +11,8 @@ CreateInputsCrit.GRiwrmInputsModel <- function(InputsModel,
@@ -36,6 +35,12 @@ CreateInputsCrit.GRiwrmInputsModel <- function(InputsModel,
@@ -82,15 +87,29 @@ CreateInputsCrit.GRiwrmInputsModel <- function(InputsModel,
+ 2
− 1
@@ -12,7 +12,8 @@
#' `Obs` argument is equivalent to the same argument in [airGR::CreateInputsCrit] except that it must a [matrix] or a [data.frame] if `InputsModel` is a \emph{GRiwrmInputsModel} object. Then, each column of the [matrix] or [data.frame] represents the observations of one of the simulated node with the name of the columns representing the id of each node.
+ 2
− 1
@@ -49,7 +49,8 @@ This function can be used either for a catchment (with an \emph{InputsModel} obj
\code{Obs} argument is equivalent to the same argument in \link[airGR:CreateInputsCrit]{airGR::CreateInputsCrit} except that it must a \link{matrix} or a \link{data.frame} if \code{InputsModel} is a \emph{GRiwrmInputsModel} object. Then, each column of the \link{matrix} or \link{data.frame} represents the observations of one of the simulated node with the name of the columns representing the id of each node.
+ 1
− 1
+ 1
− 1
@@ -25,11 +25,33 @@ test_that("Wrong argument class should throw error", {
@@ -37,12 +59,20 @@ test_that("De Lavenne criterion is OK", {
+ 20
− 16
@@ -3,14 +3,16 @@ context("CreateInputsModel")
@@ -40,14 +42,16 @@ test_that("handles mix of with and without CemaNeige nodes", {