You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
829 B
23 lines
829 B
3 years ago
|
x1=c(26,46,57,36,57,26,58,37,36,56,78,95,88,90,52,56)
|
||
|
|
x2=c(35,74,73,73,62,22,67,34,22,42,65,88,90,85,46,66)
|
||
|
|
x3=c(35,76,38,69,25,25,87,79,36,26,22,36,58,36,25,44)
|
||
|
|
x4=c(45,89,54,55,33,45,67,89,47,36,40,56,68,45,37,56)
|
||
|
|
|
||
|
|
score = cbind(x1, x2, x3, x4)
|
||
|
|
colnames(score) = c("국어", "영어", "수학", "과학")
|
||
|
|
rownames(score) = 1:16
|
||
|
|
head(score)
|
||
|
|
|
||
|
|
result = prcomp(score) #주성분 고유벡터 출력
|
||
|
|
result
|
||
|
|
|
||
|
|
summary(result)
|
||
|
|
|
||
|
|
# Importance of components:
|
||
|
|
# PC1 PC2 PC3 PC4
|
||
|
|
# Standard deviation 30.1227 27.0528 9.07614 6.15239
|
||
|
|
# Proportion of Variance 0.5157 0.4159 0.04682 0.02151
|
||
|
|
# Cumulative Proportion 0.5157 0.9317 0.97849 1.00000
|
||
|
|
|
||
|
|
# PC2까지 누적 기여율 93.17%로 2개의 주성분 결정
|
||
|
|
# (일반적으로 80% 이상 되는 지점의 성분수를 주성분으로 결정함)
|