mirror of
https://github.com/WMK965/965-R-Learning-Repo.git
synced 2025-04-28 21:03:22 +00:00
6 lines
457 B
R
6 lines
457 B
R
#填写答案时请删除掉下划线
|
|
#请先自行设置好工作路径
|
|
wine=__________("wine.csv") #读取wine.csv文件到wine变量中(2分)
|
|
y=eigen(________(wine))#利用相关系数矩阵计算特征值与特征向量(2分)
|
|
sum(___________)/sum(y$values)#计算前五个主成分的累计贡献率(2分)
|
|
cat("前五个主成分的累计贡献率是",____________)#根据上一步的计算结果， 将累计贡献率填写在下划线处。(2分) |