escala entre 0 y 1 R

s = sort(rexp(100))

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

range01(s)
Trustworthy Whale