powered by
p.screeplot.princomp
princomp
barplot
library(stats) m <- cbind(rnorm(100),rlnorm(100)) p.screeplot.princomp(princomp(m)) p.screeplot.princomp(princomp(m),main="Screeplot",ylab="Variances",cex=0.6)
Run the code above in your browser using DataLab