多元统计--基于R概述.doc

习题6.3 data6.3-read.table(clipboard,header=T) R=round(cor(data6.3),3) R x1 x2 x3 x4 x5 x6 x1 1.000 0.956 0.854 0.414 0.181 0.100 x2 0.956 1.000 0.806 0.406 0.246 0.235 x3 0.854 0.806 1.000 0.533 0.242 0.058 x4 0.414 0.406 0.533 1.000 -0.054 0.330 x5 0.181 0.246 0.242 -0.054 1.000 0.436 x6 0.100 0.235 0.058 0.330 0.436 1.000 PCA6.3=princomp(data6.3,cor=T) PCA6.3 Call: princomp(x = data6.3, cor = T) Standard deviations: Comp.1 Comp.2 Comp.3 Comp.4 Comp.5 Comp.6 1.7811271 1.1476461 0.9675949 0.6481258 0.3499529 0.1781038 6 variables and