自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(4)
  • 收藏
  • 关注

原创 大数据第四次作业

mydata<-read.table(file.choose())mydatahead(mydata)mydist<-dist(mydata,method="euclidean")mymodel<-hclust(mydist)plot(mymodel,labels=mydata$V8)myresult<-cutree(mymodel,3)for(...

2018-12-08 20:44:23 139

原创 大数据第三次作业

mydata          /显示文件head(mydata)     显示文件的开头mydata.train=mydata[2*(1:53)-1,]      生成训练集(奇数行)mydata.test=mydata[2*(1:53),]     生成测试集(偶数行)mymodel=rpart(Class~I0+PA500+HFS+DA+Area+A/DA+Max IP+...

2018-12-08 20:01:18 368

原创 大数据第二次作业

作业要求:1.读取forclass.csv文件2.几行几列3.读取出所有的列名给所有的行加编号c1-clastnumber,放在最左边5.把所有的数值变为字符,然后连接到一起,形成新的一列,放到最右边。mydata<-read.csv(file.choose())/读取该文件mydatahead(mydata) /求文件开头ncol(mydata) /求行数nrow(myd...

2018-11-21 22:43:35 191

原创 大数据第一次作业

作业要求:1读取该文件2对所有评价指标进行描述性分析,描述性分析包括:求最大值、最小值、中位数、众数等等,还有求表的行列数等。总之尽量把课堂讲的知识点都用到。我的代码:mydata<-read.csv(file.choose())mydatahead(mydata) /求标题ncol(mydata) /求列数nrow(mydata) /求行数mydata1&l...

2018-11-21 22:30:29 209

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除