Nothing
"factor.residuals" <-
function(r, f) {
if(is.matrix(f)) {
rstar <- r - factor.model(f)} else {
Phi <- f$Phi
f <- f$loadings
rstar <- r - factor.model(f,Phi=Phi)}
return(rstar)}
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.