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