> MX21=data[,1:2]
> MX21
         主营业务占比 关联交易占比
1    0.9982523   0.01179399
2    0.9955064   0.00000000
3    0.9888000   0.00000000
4    0.9317000   0.02590000

> pcaX21=princomp(x=MX21,cor=TRUE)
> pcaX21
Call:
princomp(x = MX21, cor = TRUE)
Standard deviations:
  Comp.1   Comp.2
1.357894 0.395125
2  variables and  4 observations.

> loadingsX21=pcaX21$loadings
> loadingsX21
Loadings:
             Comp.1 Comp.2
主营业务占比 -0.707 -0.707
关联交易占比  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

> scoresX21=pcaX21$scores
> scoresX21
             Comp.1     Comp.2
1 -0.3531917 -0.6676198
2 -1.0641946  0.1857625
3 -0.8903313  0.3596258
4  2.3077176  0.1222315

scores的计算公式是什么啊？