# NOT RUN {
## generate a signal to normalize
sig <- 10*sin(2*pi*5*seq(0,1,by=0.001))
## normalize between 0 and 1
sig01 <- range01(sig)
## check the ranges
range(sig)
##[1] -10 10
range(sig01)
##[1] 0 1
# }
Run the code above in your browser using DataLab