From bc4bd44020f5b8d6585a11abda8ebf2ebde6723c Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@inrae.fr>
Date: Tue, 2 Aug 2022 10:20:47 +0200
Subject: [PATCH] fix(TransfoParam_LLR: extend range for parameter K0
---
R/TransfoParam_LLR.R | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/R/TransfoParam_LLR.R b/R/TransfoParam_LLR.R
index eccadcb..024e8cf 100644
--- a/R/TransfoParam_LLR.R
+++ b/R/TransfoParam_LLR.R
@@ -18,17 +18,17 @@ TransfoParam_LLR <- function(ParamIn, Direction) {
stop(sprintf("the Lag & Route model requires %i parameters", NParam))
}
-
+ ## Transformation prévue pour de l'horaire.
## transformation
if (Direction == "TR") {
ParamOut <- ParamIn
ParamOut[, 1] <- 20 * (ParamIn[, 1] + 10) / 20.0
- ParamOut[, 2] <- 20 * (ParamIn[, 2] + 10) / 20.0
+ ParamOut[, 2] <- 2 * (ParamIn[, 2] + 10) / 20.0
}
if (Direction == "RT") {
ParamOut <- ParamIn
ParamOut[, 1] <- ParamIn[, 1] * 20.0 / 20 - 10
- ParamOut[, 2] <- ParamIn[, 2] * 20.0 / 20 - 10
+ ParamOut[, 2] <- ParamIn[, 2] * 20.0 / 2 - 10
}
--
GitLab