다음 R 코드의 실행 결과로 확인할 수 있는 내용으로 옳은 것은?&gt… | [ADsP] 데이터분석 준전문가 기출유형 모의고사 8회 상세 페이지

다음 R 코드의 실행 결과로 확인할 수 있는 내용으로 옳은 것은?
> p <- prcomp(swiss, scale. = TRUE)
> round(p$rotation[, 1:2], 3)
> round(colSums(p$rotation^2), 3)
> round(cor(p$x[, 1], p$x[, 2]), 3)
> round(var(p$x[, 1]), 3)
> round(p$sdev[1], 3)
                    PC1    PC2
Fertility        -0.457  0.322
Agriculture      -0.424 -0.412
Examination       0.510  0.125
Education         0.454  0.179
Catholic         -0.350  0.146
Infant.Mortality -0.150  0.811
PC1 PC2 PC3 PC4 PC5 PC6 
  1   1   1   1   1   1 
[1] 0
[1] 3.2
[1] 1.789

각 주성분의 적재값 제곱합은 모두 1이다

PC1 점수 분산은 PC1 의 sdev 와 같다

PC1 의 Education·Fertility 는 부호가 같다

PC1·PC2 점수는 양의 상관을 보인다

colSums(p$rotation^2) 출력이 PC1~PC6 모두 1이므로, 각 주성분의 적재 벡터는 길이 1로 정규화되어 있다.
cor 출력은 0으로 주성분 점수끼리 서로 무상관이고, var 출력 3.2는 sdev 1.789를 제곱한 고유값과 같다.
PC1·PC2 점수 상관: cor 출력이 0으로 양의 상관이 아니다
PC1 점수 분산: sdev 가 아니라 sdev 의 제곱과 같다
부호: PC1 적재값이 Education 양수, Fertility 음수로 반대다