Describe 襷_譯殊焔覿 here
R princomp prcomp 螳讌 譯殊焔覿 螳 . 覯企 蟆郁骸螳 蟇一 觜訣讌襷 企 螻襴 るゴ. princomp 蟲螻殊 襷 る 覦覯豌 螻給壱 螻覯″磯ゼ 蟲 覦覯 螻, prcomp 襭 轟願 覿(SVD:
Singular Value Decomposition) 覦覯 . 覲危 prcomp襯 誤覃 princomp S-Plus 誤 譟伎.
USArrests 襭襯 企慨. 覩瑚記 螳 譯朱襦 瑚規觜(
UrbanPop)螻 瑚規 10襷覈 譴 伎(Murder), (Assault), 螳螳(Rape) 襦 豌危 襭企. scale 旧 TRUE襦 伎 瑚規觜螻 豌危 螳 襦 螳 るゴ蠍 覓語企. princomp 蟯 PCA襯 蟲.
> p1 = prcomp(USArrests, scale=TRUE)
> p2 = princomp(USArrests, cor=TRUE)
prcomp 蟆曙 print 覲, summary 譯殊焔覲 覲企ゼ 覲伎譴.
> print(p1)
Standard deviations:
[1] 1.5748783 0.9948694 0.5971291 0.4164494
Rotation:
PC1 PC2 PC3 PC4
Murder -0.5358995 0.4181809 -0.3412327 0.64922780
Assault -0.5831836 0.1879856 -0.2681484 -0.74340748
UrbanPop -0.2781909 -0.8728062 -0.3780158 0.13387773
Rape -0.5434321 -0.1673186 0.8177779 0.08902432
> summary(p1)
Importance of components:
PC1 PC2 PC3 PC4
Standard deviation 1.57 0.995 0.5971 0.4164
Proportion of Variance 0.62 0.247 0.0891 0.0434
Cumulative Proportion 0.62 0.868 0.9566 1.0000
biplot
PC1螻
PC2襯 豢朱 2谿 覃伎 襭襯 貅 覲伎譴. 覈轟 蠍 襷 蠏碁殊 蠏碁Π.
> biplot(p1)
> #plot scree plot 蠏碁れ.
> plot(p1)
る 螳
襷 覲危糾螻 覲 . -- 覲 2016-11-11 21:03:22