https://github.com/cran/nFactors
Revision c9833e40e7af6531f93c92bb4d2ab8a87541faad authored by Gilles Raiche on 09 December 2009, 00:00:00 UTC, committed by Gabor Csardi on 09 December 2009, 00:00:00 UTC
1 parent b6fe861
Tip revision: c9833e40e7af6531f93c92bb4d2ab8a87541faad authored by Gilles Raiche on 09 December 2009, 00:00:00 UTC
version 2.3
version 2.3
Tip revision: c9833e4
eigenComputes.r
eigenComputes <-
function(x, cor=TRUE, model="components", ...) {
dataType <- eigenFrom(x)
if (model == "components") {
res <- switch(dataType,
eigenvalues = as.vector(x),
correlation = {if (cor == FALSE) eigen(x)$values else eigen(cov2cor(x))$values},
data = {if (cor == TRUE) eigen(cor(x, ...))$values else eigen(cov(x, ...))$values}
)
}
if (model == "factors") {
res <- switch(dataType,
eigenvalues = as.vector(x),
correlation = {if (cor == FALSE) eigen(corFA(x, method="ginv"))$values else eigen(cov2cor(corFA(x, method="ginv")))$values},
data = {if (cor == TRUE) eigen(corFA(cor(x, ...),method="ginv"))$values else eigen(corFA(cov(x, ...),method="ginv"))$values}
)
}
return(res)
}
Computing file changes ...