我是R的初学者,有一个任务需要创建一个函数,使所有数字被重新缩放,将正无穷映射为1,负无穷映射为0。我知道如何进行重新缩放,只是不知道如何添加到函数中,以使正无穷变成1,负无穷变成0。如果有人能够指导我正确的方向或让我知道在R中哪些命令可以实现这一点,我将不胜感激!
以下是我的代码:
以下是我的代码:
rescale01<-function(x){
rng<-range(x, na.rm=TRUE, finite=TRUE)
(x-rng[1])/(rng[2]-rng[1])
}
感谢您的帮助。