Nothing
"ifa.init.random" <-
function(y,L)
{
numvar<-ncol(y)
H<-matrix(runif(L*numvar,-3,3),numvar,L)
psi<-diag(diag(var(y)))*0.1
output<-list(psi=psi,H=H)
}
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.