# NOT RUN {
h <- hann(64)
plot (h, type = "l", xlab = "Samples", ylab =" Amplitude")
hs = hann(64,'symmetric')
hp = hann(63,'periodic')
plot (hs, type = "l", xlab = "Samples", ylab =" Amplitude")
lines(hp, col="red")
# }
Run the code above in your browser using DataLab