r - 在 R 中，如何创建一个函数，其中向量中的所有数字都被重新缩放，Inf 变为 1，而 -Inf 变为 0？

Question

我是 R 的初学者，有一个任务，我必须创建一个函数，其中所有数字都重新缩放，Inf 映射到 1，-Inf 映射到 0。我了解如何进行重新缩放，我只是不知道如何添加到函数中，所以 Inf 变为 1，-Inf 变为 0。如果有人至少可以指出我正确的方向，或者让我知道 R 中的哪种命令可以让我这样做，将不胜感激!

到目前为止，这是我的代码:

rescale01<-function(x){  
   rng<-range(x, na.rm=TRUE, finite=TRUE)
    (x-rng[1])/(rng[2]-rng[1])
  }

预先感谢您的帮助。

Answer 1

你可以试试atan

f <- function(x) 0.5+atan(x)/pi