Revision b6fe861fe48f12c1b45d1e68f8508ee6503821ac authored by Gilles Raiche on 24 April 2007, 00:00 UTC, committed by Gabor Csardi on 24 April 2007, 00:00 UTC
1 parent 4e9967d
Raw File
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
              ) 
}

back to top