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