Commit bc4bd440 authored by Dorchies David's avatar Dorchies David
Browse files

fix(TransfoParam_LLR: extend range for parameter K0

parent 92f3512b
No related merge requests found
Showing with 3 additions and 3 deletions
+3 -3
......@@ -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
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment