Commit a08751f5 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.2.12.28 DOC: varObs changed into VarObs in ErrorCrit doc

parent 17c37815
Package: airGR Package: airGR
Type: Package Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.2.12.27 Version: 1.2.12.28
Date: 2019-04-01 Date: 2019-04-01
Authors@R: c( Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
......
...@@ -13,7 +13,7 @@ output: ...@@ -13,7 +13,7 @@ output:
### 1.2.12.27 Release Notes (2019-04-01) ### 1.2.12.28 Release Notes (2019-04-01)
......
...@@ -83,7 +83,7 @@ OutputsModel <- RunModel_GR4J(InputsModel = InputsModel, ...@@ -83,7 +83,7 @@ OutputsModel <- RunModel_GR4J(InputsModel = InputsModel,
InputsCritSingle <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsCritSingle <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE,
InputsModel = InputsModel, RunOptions = RunOptions, InputsModel = InputsModel, RunOptions = RunOptions,
Obs = list(BasinObs$Qmm[Ind_Run]), Obs = list(BasinObs$Qmm[Ind_Run]),
varObs = "Q", transfo = "", VarObs = "Q", transfo = "",
weight = NULL) weight = NULL)
str(ErrorCrit(InputsCrit = InputsCritSingle, OutputsModel = OutputsModel)) str(ErrorCrit(InputsCrit = InputsCritSingle, OutputsModel = OutputsModel))
...@@ -91,7 +91,7 @@ str(ErrorCrit(InputsCrit = InputsCritSingle, OutputsModel = OutputsModel)) ...@@ -91,7 +91,7 @@ str(ErrorCrit(InputsCrit = InputsCritSingle, OutputsModel = OutputsModel))
InputsCritMulti <- CreateInputsCrit(FUN_CRIT = list(ErrorCrit_RMSE, ErrorCrit_NSE), InputsCritMulti <- CreateInputsCrit(FUN_CRIT = list(ErrorCrit_RMSE, ErrorCrit_NSE),
InputsModel = InputsModel, RunOptions = RunOptions, InputsModel = InputsModel, RunOptions = RunOptions,
Obs = list(BasinObs$Qmm[Ind_Run], BasinObs$Qmm[Ind_Run]), Obs = list(BasinObs$Qmm[Ind_Run], BasinObs$Qmm[Ind_Run]),
varObs = list("Q", "Q"), transfo = list("", "sqrt"), VarObs = list("Q", "Q"), transfo = list("", "sqrt"),
weight = NULL) weight = NULL)
str(ErrorCrit(InputsCrit = InputsCritMulti, OutputsModel = OutputsModel)) str(ErrorCrit(InputsCrit = InputsCritMulti, OutputsModel = OutputsModel))
...@@ -100,7 +100,7 @@ str(ErrorCrit(InputsCrit = InputsCritMulti, OutputsModel = OutputsModel)) ...@@ -100,7 +100,7 @@ str(ErrorCrit(InputsCrit = InputsCritMulti, OutputsModel = OutputsModel))
InputsCritCompo <- CreateInputsCrit(FUN_CRIT = list(ErrorCrit_NSE, ErrorCrit_NSE), InputsCritCompo <- CreateInputsCrit(FUN_CRIT = list(ErrorCrit_NSE, ErrorCrit_NSE),
InputsModel = InputsModel, RunOptions = RunOptions, InputsModel = InputsModel, RunOptions = RunOptions,
Obs = list(BasinObs$Qmm[Ind_Run], BasinObs$Qmm[Ind_Run]), Obs = list(BasinObs$Qmm[Ind_Run], BasinObs$Qmm[Ind_Run]),
varObs = list("Q", "Q"), transfo = list("", "log"), VarObs = list("Q", "Q"), transfo = list("", "log"),
weight = list(0.4, 0.6)) weight = list(0.4, 0.6))
str(ErrorCrit(InputsCrit = InputsCritCompo, OutputsModel = OutputsModel)) str(ErrorCrit(InputsCrit = InputsCritCompo, OutputsModel = OutputsModel))
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment