第一题
> data=("",head=T)
> head(data)#前六行数据
xl x2
1
2
3
4 0,5二
5
6
x3
a . ^2 €
x5
0.^0
(J- S2 0-36 0,25。.好
x7 xS
C.?8
0 .73 0-24 0,27
0-17
x9 xlO - 0,21 a,09 - 0,17
> attach(data)
> options(digits=2) > data=(data)# 转化为矩阵
> v1<-eigen(data)#计算相关系数矩阵特征值和特征向量 > v1
> zhuchengfen<-princomp(covmat=data)#
(1] 1,11 0,72 0,59 0,53 0,38 0,21
L2]
1,3]
[川
LS] L61
131
[㈤
L汨
L皿
(Id
—0 r
-0,493
0.?16
-0,159
-0,07€
0,62884
01
-0. 1”
'
一口QT
7*。€5 -
'
'
'^
[3,1
0. 434
-
["]
6
T. 1QS
-
-
-
⑸】
-
-0,C79
-0,130
-0,108
0,255
。心3
-
2】
-
-
-
口*。54 -
-
CLOSE
^2
17,]
0*319
-
-
-
-
-
-
-
[3]
0. 33
3352
3 2和
€9 -
-
[10,1
-
主成分分析R语言 来自淘豆网www.taodocs.com转载请标明出处.