>library(mvstats)
> X2<-read.table("clipboard",header=F)
> dim(X2)[1] 13 18
> PCA2<-princomp(X2)
Error in princomp.default(X2) :
'princomp' can only be used with more units than variables
> PCA2<-princomp(X)
> summary(PCA2)
Importance of components:
Comp.1 Comp.2 Comp.3 Comp.4 Comp.5
Standard deviation 52.8384089 42.3366098 25.8922359 19.19450703 17.32100045
Proportion of Variance 0.4490814 0.2883087 0.1078362 0.05926244 0.04825825
Cumulative Proportion 0.4490814 0.7373901 0.8452263 0.90448875 0.95274699
Comp.6 Comp.7 Comp.8 Comp.9
Standard deviation 10.36053566 9.32426304 7.236545819 6.327478955
Proportion of Variance 0.01726593 0.01398475 0.008423415 0.006440017
Cumulative Proport