diff --git a/DESCRIPTION b/DESCRIPTION
index b862039cb49f19d7b6b676e96f68e23dd01b61e5..e4e61e9a4707855313689f47a2a7e3aad2859381 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.33
+Version: 1.6.3.34
 Date: 2020-11-06
 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 176770a72194711f7aa8245ccf79fc434c7404c7..e0e3127c31cd15829e008b46b10c85a4ddcc7f18 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -4,7 +4,7 @@
 
 
 
-### 1.6.3.33 Release Notes (2020-11-06)
+### 1.6.3.34 Release Notes (2020-11-06)
 
 #### New features
 
diff --git a/man/RunModel_LAG.Rd b/man/RunModel_LAG.Rd
index c601dc0897edf52ae389fc3460d3feb5c4bcbd2c..1bbd897d3f8a4581d7042a6a4bb57d39006a9d02 100644
--- a/man/RunModel_LAG.Rd
+++ b/man/RunModel_LAG.Rd
@@ -45,7 +45,9 @@ data(L0123001)
 
 ## Simulating a reservoir
 # Withdrawing 1 m3/s with an instream flow of 1 m3/s
-Qupstream <- matrix(- unlist(lapply(BasinObs$Qls / 1000 - 1, function(x) {min(1, max(0,x, na.rm = TRUE))})), ncol = 1)
+Qupstream <- matrix(- unlist(lapply(BasinObs$Qls / 1000 - 1, function(x) {
+  min(1, max(0,x, na.rm = TRUE))
+})), ncol = 1)
 # Except between July and November when releasing 3 m3/s
 month <- as.numeric(format(BasinObs$DatesR,"\%m"))
 Qupstream[month >= 7 & month <= 9] <- 3