From c13806c604614907008086dbcd34e301f3d0930e Mon Sep 17 00:00:00 2001 From: unknown <olivier.delaigue@ANPI1430.antony.irstea.priv> Date: Thu, 16 Feb 2017 16:10:32 +0100 Subject: [PATCH] v1.0.5.20 function TransfoParam_GR1A() cleaned --- R/TransfoParam_GR1A.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/TransfoParam_GR1A.R b/R/TransfoParam_GR1A.R index ac9c39ab..f823e53b 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) { -- GitLab