https://github.com/cran/nFactors
Tip revision: b6fe861fe48f12c1b45d1e68f8508ee6503821ac authored by Gilles Raiche on 24 April 2007, 00:00:00 UTC
version 2.2
version 2.2
Tip revision: b6fe861
plotuScree.R
"plotuScree" <-
function(Eigenvalue, y = NA,
ylab = "Eigenvalue",
xlab = "Component",
main = "Scree Plot"
) {
if (!inherits(Eigenvalue, "numeric")) stop("use only with \"numeric\" objects")
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
)
}