From 5f4d38f1f599392e3b42d9390849eacdfc34e45a Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Thu, 15 Oct 2020 08:54:05 +0200
Subject: [PATCH] v1.6.3.17 test: fix mistake introduced in commit 5998340c
---
DESCRIPTION | 2 +-
NEWS.md | 2 +-
tests/testthat/test-RunModel_LAG.R | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index c70bc6e1..ebb163c8 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.6.3.16
+Version: 1.6.3.17
Date: 2020-10-15
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.md b/NEWS.md
index 5c9a6a16..57ff5070 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,7 +2,7 @@
-### 1.6.3.16 Release Notes (2020-10-15)
+### 1.6.3.17 Release Notes (2020-10-15)
#### New features
diff --git a/tests/testthat/test-RunModel_LAG.R b/tests/testthat/test-RunModel_LAG.R
index ccd59083..880f33c3 100644
--- a/tests/testthat/test-RunModel_LAG.R
+++ b/tests/testthat/test-RunModel_LAG.R
@@ -35,7 +35,7 @@ test_that("'Qupstream' cannot contain any NA value", {
})
# Qupstream = sinusoid synchronised on hydrological year from 0 mm to mean value of Qobs
-Qupstream <- floor((sin((seq_along(length(BasinObs$Qmm))/365*2*3.14))+1) * mean(BasinObs$Qmm, na.rm = TRUE))
+Qupstream <- floor((sin((seq_along(BasinObs$Qmm)/365*2*3.14))+1) * mean(BasinObs$Qmm, na.rm = TRUE))
InputsModel <- CreateInputsModel(
FUN_MOD = RunModel_GR4J,
--
GitLab