per <- function(z) { n <- length(z) (Mod(fft(z))**2/(2*pi*n)) [1:(n %/% 2 + 1)] }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.