https://github.com/cran/nFactors
Tip revision: 592b098fc786911733da1c1953e58c9d1c2e9517 authored by Gilles Raiche on 10 April 2010, 00:00:00 UTC
version 2.3.3
version 2.3.3
Tip revision: 592b098
componentAxis.r
"componentAxis" <-
function(R, nFactors=2) {
nVar <- dim(R)[2]
acp <- principalComponents(R)
values <- acp$values[(1:nFactors)]
varExplained <- round((values/nVar)*100, 2)
cumVarExplained <- round(cumsum(varExplained), 2)
loadings <- acp$vectors[,(1:nFactors)] %*% diag(values^0.5) # F1 * diag(E)
communalities <- apply(loadings*loadings,1,sum)
apa <- list(values = values,
varExplained = varExplained,
cumVarExplained = cumVarExplained,
loadings = loadings,
communalities = communalities)
return(apa)
}