Nothing
benzecri.eigenfix <-
function(eigvals,num_variables){
new_eigvals <- eigvals[eigvals > (1/num_variables)]
new_eigvals <- (num_variables/(num_variables-1)) * (new_eigvals -(1/num_variables))
new_eigvals <- new_eigvals^2
return(new_eigvals[new_eigvals > (2*.Machine$double.eps)])
}
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.