Nothing
i.bar.compute <-
function(num_variables,eigvals,num_columns){
return((num_variables/(num_variables-1)) * ((sum(eigvals) - (num_columns-num_variables)/(num_variables^2))))
}
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.