> install.packages("openxlsx")
> library(openxlsx)
> seaside=read.xlsx('D:/大三下/多元统计分析R语言/实验报告/1906033106-4-1.xlsx')
> pc=princomp(seaside,cor = T)
> pc
Call:
princomp(x = seaside, cor = T)Standard deviations:
Comp.1 Comp.2 Comp.3 Comp.4 Comp.5 Comp.6 Comp.7
2.85168504 1.11024595 0.96673178 0.59194325 0.44904279 0.27139561 0.21542785
Comp.8 Comp.9 Comp.10 Comp.11
0.13327352 0.10151906 0.01774623 0.0138632511 variables and 14 observations. #11个变量,14行数据
> comp1=pc$scores[,1]
> comp2=pc$scores[,2]
> comp3=pc$scores[,3]
> c=2.8516850/(2.8516850+1.1102459+0.96673178)*c