diff --git a/R/TransfoParam_GR1A.R b/R/TransfoParam_GR1A.R index ac9c39ab0b760c3ea8b070acca50da83b1cb2cf4..f823e53baa481da40ce2a6df129b61818e1a227a 100644 --- a/R/TransfoParam_GR1A.R +++ b/R/TransfoParam_GR1A.R @@ -13,10 +13,10 @@ TransfoParam_GR1A <- function(ParamIn, Direction) { } if (Direction == "TR") { - ParamOut <- (ParamIn + 10.0) / 8 + ParamOut <- (ParamIn + 10.0) / 8 } if (Direction == "RT") { - ParamOut <- ParamIn * 8 - 10.0 + ParamOut <- ParamIn * 8 - 10.0 } if (Bool == FALSE) {