Nothing
fix.theta <-
function (theta, Q)
{
M <- t(theta) %*% Q %*% theta
eM <- eigen(M, symmetric = TRUE)
scale(theta %*% eM$vectors, FALSE, sqrt(eM$values))
}
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.