масштаб от 0 до 1 r

s = sort(rexp(100))

range01 <- function(x){(x-min(x))/(max(x)-min(x))}

range01(s)
Trustworthy Whale