Nothing
`ARSdf` <-
function(phi, pFFT=8){
pext<-c(1,-phi,rep(0,2^(1+pFFT) -1 -length(phi)))
ft<-fft(pext)
1/(Re(ft*Conj(ft)))[1:2^pFFT]
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.