我有一些数据样本简单一点如下:
对样本进行决策树分类,并利用分类的结果对新的样本进行预测,代码如下:
train=read.table("~/b.txt",T)
test=read.table("~.c.txt",T)
>model=rpart(RES~SEX+EDU+AGE,train,method="class")
>TestResult=predict(model,test,type="class")
对于生成的决策树model 进行画图:
plot(model,uniform=TRUE,main="test")text(model,use.n=TRUE,fancy=T,col="blue")结果如图所示: