C5.0算法

library(C50)

train.idx<-sample(1:nrow(iris),100)

iris.train<-iris[train.idx,]

iris.test<-iris[-train.idx,]

#训练和测试

modelc5<-C5.0(formula=Species~.,data=iris.train,trials=100,rules=TRUE) #trial指定迭代次数，rules选择是否生成规则集

resc5<-predict(object=modelc5,newdata=iris.test,type="class")

#C5.0模型结果

table(iris.test$Species,resc5,dnn=c("Actual","predicted"))