Nothing
cos.basis = function(q,N){
basis.matrix = matrix(data = NA, nrow = N, ncol = q)
s = (1:N-0.5)/N
for(i in 1:q){
basis.matrix[,i] = sqrt(2)*cos(i*s*pi)
}
return(basis.matrix)
}
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.