Nothing
`nominalY` <-
function(d,yy,r,verbose=0) {
qq<-La.svd(sqrt(d)*yy,r,r)
zz<-(1/sqrt(d))*qq$u
aa<-qq$d[1:r]*qq$vt
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.