https://github.com/cran/nFactors
Tip revision: 875465dbb701152a2de23d9377cbe4c2604c4ad0 authored by Gilles Raiche on 14 October 2009, 00:00:00 UTC
version 2.3.1
version 2.3.1
Tip revision: 875465d
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)
}