大数据第三次作业

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+DR+P,data=mydata.train,method="class")    生成模型

rpart.plot(mymodel)   /画出模型

mydata.rp3=predict(model,mydata.test,type="class")    /通过生成的模型预测训练集

data.frame(I0=784.25,PA500=0.12,HFS=0.115,DA=190.6Area=,7355.2,A/DA=23.47,mMax IP=75.38,DR=166.7,P=811)  /对某一条语句预测结果

table(mydata.test,mydata.rp3) /计算预测的精确度

asRules(model)  /生成预测规则