# NOT RUN {
x <- seq(from = 1, to = 100, by = 0.1)
y <- sin(sqrt(x))
plot(y~x, type = "l")
y.n <- norm.vector(y)
plot(y.n~x, type = "l")
y.ab <- norm.vector(y, a.b = c(5,20))
plot(y.ab~x, type = "l")
# }
Run the code above in your browser using DataLab