diff --git a/DESCRIPTION b/DESCRIPTION index 70c5e92a430878bfcd72431cfd0367e2e3b3479d..293af8e4a95091fbea46aef2eb673575eca481ce 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.3.2.4 +Version: 1.3.2.5 Date: 2019-05-22 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 38a740db3676589110075b0994e9d2616ba2e2ef..81761010feafbf786dbee1e9349003fbfc8f0279 100644 --- a/NEWS.rmd +++ b/NEWS.rmd @@ -14,7 +14,7 @@ output: -### 1.3.2.4 Release Notes (2019-05-22) +### 1.3.2.5 Release Notes (2019-05-22) #### New features diff --git a/R/PE_Oudin.R b/R/PE_Oudin.R index f474924d7acdca563a7d3293dbced0ad52ec9ab4..1324eaec24d6ac74cc5f61b420178f3863311871 100644 --- a/R/PE_Oudin.R +++ b/R/PE_Oudin.R @@ -67,7 +67,7 @@ PE_Oudin <- function(JD, Temp, rleJD <- rle(JD) JD <- rleJD$values if (any(rleJD$lengths != 24)) { - stop("each days must have 24 identical Julian day values (one for each hour)") + stop("each day must have 24 identical values of julian days (one for each hour)") } idJD <- rep(seq_along(JD), each = rleJD$lengths[1L]) Temp <- as.vector(tapply(X = Temp, INDEX = idJD, FUN = mean))