Nothing
normX <- function (x,w)
{
#qq<-La.svd(sqrt(w)*x); list(q=(1/sqrt(w))*(qq$u),r=qq$d)
qq <- qr((1/sqrt(w)) * x)
list(q = (1/sqrt(w)) * qr.Q(qq), r=abs(diag(qr.R(qq))))
}
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.