v1.1.2.4 UPDATE: ErrorCrit_RMSE compatible with new InputsCrit objects

0c450326 · Delaigue Olivier · 6a20b554 · 0c450326 · 0c450326
Commit 0c450326 authored 6 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 3 deletions
+3 -3
--- a/DESCRIPTION
+++ b/DESCRIPTION
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.1.2.3
+Version: 1.1.2.4
 Date: 2018-10-22
 Authors@R: c(
  person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),

--- a/R/ErrorCrit_RMSE.R
+++ b/R/ErrorCrit_RMSE.R
@@ -36,7 +36,7 @@ ErrorCrit_RMSE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose =
    
    
    ##Data_preparation_______________________________
-    VarObs <- InputsCrit$Qobs
+    VarObs <- InputsCrit$obs
    VarObs[!InputsCrit$BoolCrit] <- NA
    VarSim <- OutputsModel$Qsim
    VarSim[!InputsCrit$BoolCrit] <- NA
@@ -120,7 +120,7 @@ ErrorCrit_RMSE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose =
    
    ##Verbose______________________________________
    if (verbose) {
-      message("Crit. ", CritName, " = ", sprintf("%.4f", CritValue))
+      message("Crit. ", CritName, " = ", sprintf("%.4f", CritValue), "\n")
    }