b <- blackmannuttall(64)
plot (b, type = "l", xlab = "Samples", ylab =" Amplitude")
bs = blackmannuttall(64,'symmetric')
bp = blackmannuttall(63,'periodic')
plot (bs, type = "l", xlab = "Samples", ylab =" Amplitude")
lines(bp, col="red")
Run the code above in your browser using DataLab