Revision 4de3e280a6f88cfcdfa131581cebe9aa005ec68a authored by Gilles Raiche on 10 April 2010, 00:00:00 UTC, committed by Gabor Csardi on 10 April 2010, 00:00:00 UTC
1 parent 875465d
plotuScree.R
"plotuScree" <-
function(Eigenvalue, x=Eigenvalue, model = "components",
ylab = "Eigenvalues",
xlab = "Components",
main = "Scree Plot" ,
...) {
Eigenvalue <- eigenComputes(x, ...)
if (!inherits(Eigenvalue, "numeric")) stop("use only with \"numeric\" objects")
if (model == "factors") xlab <- "Factors"
par(mfrow = c(1,1))
nk <- length(Eigenvalue)
Component <- 1:nk
plot.default(as.numeric(Component),
as.numeric(Eigenvalue),
type = 'b',col = "black", pch = 1,
ylab = ylab,
xlab = xlab,
main = main
)
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...