a)
> pc<-princomp(y,cor=T,scores=T)
> pc$loadings
Loadings:
Comp.1 Comp.2
[1,] -0.707 0.707
[2,] -0.707 -0.707
Comp.1 Comp.2
SS loadings 1.0 1.0
Proportion Var 0.5 0.5
Cumulative Var 0.5 1.0
b)
> eigen(cor(y))
$values
[1] 1.5346523 0.4653477
$vectors
[,1] [,2]
[1,] 0.7071068 -0.7071068
[2,] 0.7071068 0.7071068
会发现前者的载荷和后者的特征向量的符号有较大差异
但是我用协方差阵做就不会出现这种情况!
另:
(pc$sdev)^2 和特征值 也有一定的不同!
> pc<-princomp(y,cor=T,scores=T)
> pc$loadings
Loadings:
Comp.1 Comp.2
[1,] -0.707 0.707
[2,] -0.707 -0.707
Comp.1 Comp.2
SS loadings 1.0 1.0
Proportion Var 0.5 0.5
Cumulative Var 0.5 1.0
b)
> eigen(cor(y))
$values
[1] 1.5346523 0.4653477
$vectors
[,1] [,2]
[1,] 0.7071068 -0.7071068
[2,] 0.7071068 0.7071068
会发现前者的载荷和后者的特征向量的符号有较大差异
但是我用协方差阵做就不会出现这种情况!
另:
(pc$sdev)^2 和特征值 也有一定的不同!