Nothing
rot.fac <-
function(x, B) # proj is projected data, B is factor scores
{
l<-sqrt(apply(x^2, 1,sum))
x<-x/l
y<-GPFoblq(x, method="oblimin")
return(y$Th)
}
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.