## The function is currently defined as
"eigen.loadings" <-
function (x) { #convert eigen vectors to loadings by unnormalizing them
#used if using princomp or princ, not needed for principal
return(x$vectors %*% sqrt(diag(x$values)))
}
Run the code above in your browser using DataLab