# NOT RUN {
n <- 128
t0 <- tukeywin(n, 0) # Equivalent to a rectangular window
t25 <- tukeywin(n, 0.25)
t5 <- tukeywin(n) # default r = 0.5
t75 <- tukeywin(n, 0.75)
t1 <- tukeywin(n, 1) # Equivalent to a Hann window
plot(t0, type = "l", xlab = "Samples", ylab =" Amplitude", ylim=c(0,1.2))
lines(t25, col = 2)
lines(t5, col = 3)
lines(t75, col = 4)
lines(t1, col = 5)
# }
Run the code above in your browser using DataLab