Nothing
`polynomialY` <-
function(d,y,r,verbose=0) {
k<-length(d)
zz<-orthogonalPolynomials(d,1:k,min(r,k-1))
aa<-crossprod(zz,d*y)
list(y=zz%*%aa,z=zz,a=aa)
}
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.