diff --git a/DESCRIPTION b/DESCRIPTION
index c70bc6e1b6fca4d8cb0f38abc3787c68453eaedd..ebb163c8e52cd9ba71e48ff7b432225264c1116b 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 5c9a6a1616f5b8058d1480fb17fc6179ca52ee1b..57ff5070bf9d007ac07e346da0f864142874e6e4 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 ccd59083ea63848f0674382ce6af60d528a9aaed..880f33c311e904065db8dac0d56a665a4f6ca683 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,