R语言进行集成学习算法:随机森林
创始人
2024-12-27 01:35:58
0
# 10.4 集成学习及随机森林 # 导入car数据集 car <- read.table("data/car.data",sep = ",") # 对变量重命名 colnames(car) <- c("buy","main","doors","capacity",                    "lug_boot","safety","accept") # 随机选取75%的数据作为训练集建立模型,25%的数据作为测试集用来验证模型 library(caret) library(ggplot2) library(lattice) # 构建训练集的下标集 ind <- createDataPartition(car$accept,times=1,p=0.75,list=FALSE)  # 构建测试集数据好训练集数据 carTR <- car[ind,] carTE <- car[-ind,] carTR<- within(carTR,accept <- factor(accept,levels=c("unacc","acc","good","vgood"))) carTE<- within(carTE,accept <- factor(accept,levels=c("unacc","acc","good","vgood")))   # 使用adabag包中的bagging函数实现bagging算法 #install.packages("adabag") library(adabag) bagging.model <- bagging(accept~.,data=carTR)  # 使用adabag包中的boosting函数实现boosting算法 boosting.model <- boosting(accept~.,data=carTR)  # 使用randomForest包中的randomForest函数实现随机森林算法 #install.packages("randomForest") library(randomForest) randomForest.model <- randomForest(accept~.,data=carTR,ntree=500,mtry=3)  # 预测结果,并构建混淆矩阵,查看准确率 # 构建result,存放预测结果 result <- data.frame(arithmetic=c("bagging","boosting","随机森林"),                      errTR=rep(0,3),errTE=rep(0,3)) for(i in 1:3){   # 预测结果   carTR_predict <- predict(switch(i,bagging.model,boosting.model,randomForest.model),                            newdata=carTR) # 训练集数据   carTE_predict <- predict(switch(i,bagging.model,boosting.model,randomForest.model),                            newdata=carTE) # 测试集数据   # 构建混淆矩阵   tableTR <- table(actual=carTR$accept,                    predict=switch(i,carTR_predict$class,carTR_predict$class,carTR_predict))   tableTE <- table(actual=carTE$accept,                    predict=switch(i,carTE_predict$class,carTE_predict$class,carTE_predict))   # 计算误差率   result[i,2] <- paste0(round((sum(tableTR)-sum(diag(tableTR)))*100/sum(tableTR),                               2),"%")   result[i,3] <- paste0(round((sum(tableTE)-sum(diag(tableTE)))*100/sum(tableTE),                               2),"%") } # 查看结果 result 

相关内容

热门资讯

专业讨论!德扑之星真破解套路(... 专业讨论!德扑之星真破解套路(辅助挂)软件透明挂(有挂了解)-哔哩哔哩;人气非常高,ai更新快且高清...
每日必看!智星德州菠萝外挂检测... 每日必看!智星德州菠萝外挂检测(辅助挂)软件透明挂(有挂教学)-哔哩哔哩1、玩家可以在智星德州菠萝外...
透视透明挂!轰趴十三水有后台(... 轰趴十三水有后台赢率提升策略‌;透视透明挂!轰趴十三水有后台(辅助挂)软件透明挂(有挂详情)-哔哩哔...
发现玩家!德扑ai助手软件(辅... 发现玩家!德扑ai助手软件(辅助挂)透视辅助(有挂教学)-哔哩哔哩;玩家在德扑ai助手软件中需先进行...
一分钟了解!x-poker辅助... 一分钟了解!x-poker辅助软件(辅助挂)辅助透视(有挂攻略)-哔哩哔哩1、每一步都需要思考,不同...
一分钟揭秘!德州最新辅助器(辅... 一分钟揭秘!德州最新辅助器(辅助挂)透视辅助(有挂攻略)-哔哩哔哩;德州最新辅助器最新版本免费下载安...
玩家攻略推荐!德州辅助(辅助挂... 玩家攻略推荐!德州辅助(辅助挂)辅助透视(有挂了解)-哔哩哔哩是由北京得德州辅助黑科技有限公司精心研...
揭秘真相!pokernow德州... 《揭秘真相!pokernow德州(辅助挂)辅助透视(有挂介绍)-哔哩哔哩》 pokernow德州软件...
五分钟了解!德州之星辅助器(辅... 五分钟了解!德州之星辅助器(辅助挂)辅助透视(有挂透明)-哔哩哔哩1、很好的工具软件,可以解锁游戏的...
推荐一款!pokermaste... 1、推荐一款!pokermaster有外挂(辅助挂)透视辅助(有挂教学)-哔哩哔哩;详细教程。2、p...