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