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