mirror of
https://github.com/WMK965/965-R-Learning-Repo.git
synced 2025-04-28 02:33:21 +00:00
17 lines
945 B
R
17 lines
945 B
R
#填写答案时请删除掉下划线
|
||
#请先自行设置好工作路径
|
||
__________(wine.rdata)#读取wine.rdata数据集(2分)
|
||
_________(wine$class) #查看class列中各类别的记录条数(2分)
|
||
cat("class中属于第1类的样本有",__________,"条") #将答案数字填入划线处(3分)
|
||
wine=__________(wine,select=-class)#删除掉数据集的第1列(2分)
|
||
wine=scale(wine)
|
||
___________(factoextra)#加载factoextra程序包(2分)
|
||
fviz_nbclust(wine,________,method="silhouette") #用k均值方法确定聚类的簇数(2分)
|
||
____________(119) #设置种子数为119 （2分）
|
||
kjl=kmeans(wine,_________) #根据上一步的的结果在下划线处填写聚类的簇数(3分)
|
||
summary(kjl)
|
||
cat("第2类中Magnesium参数的均值是",__________) #根据summary的结果填写答案在下划线处(2分)
|
||
cat("第66条记录的聚类结果是第",_____,"类") #根据summary的结果填写答案在下划线处(2分)
|
||
|
||
|