hamming <- function(N,k=21,K=46){ N <- N-1; k <- k/K; (1.0 - k) - k * cos((2.0*pi/N)* 0:N); }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.