Commit c13806c6 authored by unknown's avatar unknown
Browse files

v1.0.5.20 function TransfoParam_GR1A() cleaned

parent a2ae0d35
......@@ -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) {
......
Markdown is supported
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