题目一:信息的聚类分类练习(文件:wholesaledata.csv)
(1)聚类
a.打开文件,由于行数过多,所以取前十行输出观察,并输出其行列数。
m<-read.csv(file.choose())
head(m,10)
ncol(m)
nrow(m)
b.去掉数据中的前两列(频道和地区)
m1<-m[,-1]
m2<-m1[,-1]
head(m2,10)
c.计算变量间距离,形成相异度矩阵,聚类,画出聚类模型图
mydist<-dist(scale(m2),method=“euclidean”)<