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"))

 

posted @   zhang-X  阅读(60)  评论(0)  编辑  收藏  举报
相关博文：
·  C5.0算法
·  C4.5算法
·  实验三：C4.5（带有预剪枝和后剪枝）算法实现与测试
·  上机实验三：C4.5（带有预剪枝和后剪枝）算法实现与测试
·  （带有预剪枝和后剪枝）算法实现与测试
阅读排行：
· TypeScript + Deepseek 打造卜卦网站：技术与玄学的结合
· Manus的开源复刻OpenManus初探
· AI 智能体引爆开源社区「GitHub 热点速览」
· 从HTTP原因短语缺失研究HTTP/2和HTTP/3的设计差异
· 三行代码完成国际化适配，妙~啊~
点击右上角即可分享
微信分享提示
SQL AI 助手