Nothing
"doSVD" <-
function (x, numleft, numright)
#doSVD
{
svdx<-La.svd(as.matrix(x),nu=numleft,nv=numright)
list(values=svdx$d, left=as.matrix(svdx$u),
right=as.matrix(svdx$vt))
}
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.