2007

> pca<-princomp(osen)
> summary(pca)
Importance of components:
Comp.1 Comp.2
Standard deviation 2.5211880 0.3082206
Proportion of Variance 0.9852745 0.0147255
Cumulative Proportion 0.9852745 1.0000000


参考までに以下に記述しておきます。
> do<-c(7.2,9.4,5.2,3.8,8.1,8.6)
> bod<-c(1.3,0.8,3.9,5.0,1.5,0.9)
> osen<-data.frame(do,bod)
> osen
do bod
1 7.2 1.3
2 9.4 0.8
3 5.2 3.9
4 3.8 5.0
5 8.1 1.5
6 8.6 0.9
> pca<-princomp(osen)
> summary(pca)
Importance of components:
Comp.1 Comp.2
Standard deviation 2.5211880 0.3082206
Proportion of Variance 0.9852745 0.0147255
Cumulative Proportion 0.9852745 1.0000000
> plot(pca)
> plot(pca$scores)

> loadings(pca)

Loadings:
Comp.1 Comp.2
do 0.773 0.634
bod -0.634 0.773

Comp.1 Comp.2
SS loadings 1.0 1.0
Proportion Var 0.5 0.5
Cumulative Var 0.5 1.0
> pca$scores
Comp.1 Comp.2
1 0.7077761 -0.62662916
2 2.7260399 0.38164218
3 -2.4873407 0.11581851
4 -4.2674045 0.07876326
5 1.2769263 0.09867632
6 2.0440029 -0.04827111
>