Nothing
fourier.expansion <-
function(x,n_of_basis,pos){
frange <- c(pos[1], pos[length(pos)])
rlt=list();
rlt$fbasis<-create.fourier.basis(frange,nbasis=n_of_basis)
rlt$phi = eval.basis(pos,rlt$fbasis);
rlt$coef<-myinv(t(rlt$phi)%*%rlt$phi)%*%t(rlt$phi)%*%t(x)
return(rlt)
}
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.