ALL<-importData("c:\\Temp\ALL.xls",type="EXCEL") dim(ALL) AML<-importData("c:\\Temp\\AML.xls",type="EXCEL") dim(AML) ALL.prc<-princomp(ALL) AML.prc<-princomp(AML) summary(ALL.prc) summary(ALL.prc,loadings=T) names(ALL.prc) ALL.prc$loadings plot(ALL.prc) biplot(ALL.prc) plot(AML.prc) biplot(AML.prc)