TransfoParam.R 105 bytes
TransfoParam <- function(ParamIn,Direction,FUN_TRANSFO){
    return( FUN_TRANSFO(ParamIn,Direction) )