diff --git a/DESCRIPTION b/DESCRIPTION index 84e67040145a194a2dca9ea62981134b95f8d5f5..04fef8742f672e1cbff189d53d153ad6bf7e070b 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: airGR Type: Package Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling -Version: 1.2.9.25 +Version: 1.2.9.26 Date: 2019-03-19 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), diff --git a/NEWS.rmd b/NEWS.rmd index 28c047ff2685708c8752cdce44d70bccede0675c..3193cb7a8ad1a1db7aaf56912e70217c5cef99f2 100644 --- a/NEWS.rmd +++ b/NEWS.rmd @@ -13,7 +13,7 @@ output: -### 1.2.9.25 Release Notes (2019-03-19) +### 1.2.9.26 Release Notes (2019-03-19) diff --git a/R/ErrorCrit.R b/R/ErrorCrit.R index 7f0d362d97dbd1ff195526e7b17b79545c3f0f98..80a25770937e5c426f5c4190b026cf95dc2c7a6d 100644 --- a/R/ErrorCrit.R +++ b/R/ErrorCrit.R @@ -60,7 +60,7 @@ ErrorCrit <- function(InputsCrit, OutputsModel, FUN_CRIT, warnings = TRUE, verbo msgFormSep <- rep(c(",", ",", ",\n\t\t "), times = ceiling(length(msgForm)/3))[1: length(msgForm)] msgForm <- paste(msgForm, msgFormSep, sep = "", collapse = "") msgForm <- gsub("\\,\\\n\\\t\\\t $|\\,$", "", msgForm) - message("\tFormula: mean(", msgForm, ")\n") + message("\tFormula: sum(", msgForm, ")\n") } } else { OutputsCrit <- listOutputsCrit