麻烦and纠结 2013-10-09 02:11 采纳率: 0%
浏览 11458

用R语言实现随机森林的代码

我需要用R语言实现随机森林的分类 R语言以前没学过 但是需要用 所以我想看看 别人是怎么使用 R语言实现随机森林的分类

  • 写回答

2条回答 默认 最新

  • JackWang-CUMT 2015-09-07 09:14
    关注

    具体代码如下:
    install.packages("randomForest") #安装randomForest函数包
    #将表1数据保存为csv格式文件,并将汉字指标名称替换为X1-X12,瓦斯涌出量替换成Y
    dataall<-read.csv("C: \瓦斯数据.csv") # 读取数据
    library(randomForest) #加载randomForest函数包
    train<-dataall[1:15,] #前15条数据作为训练样本
    test<-dataall[16:18,] #后3条数据作为测试样本
    #通过tuneRF选择较为合适的 值,并绘图1
    tuneRF(train[,-13],train[,13],mtryStart=1,ntreeTry=500,improve=0.0005,plot=TRUE)
    #取 , ,用训练样本训练随机森林回归模型
    rf<-randomForest(Y~.,data=train,mtry=4,importance=TRUE,ntree=500)
    plot(1:500,rf$mse,type='l',lwd=1,xlab='ntree',ylab='Error') #绘制图2
    p<-predict(rf,test[,-13]) # 对测试样本的瓦斯涌出量值进行预测
    o<-test[,13] #获取测试样本的实际瓦斯涌出量值
    cv<-(p-o)/o #计算预测相对误差
    cv #控制台输出相对误差

    评论

报告相同问题?

悬赏问题

  • ¥15 oracle集群安装出bug
  • ¥15 关于#python#的问题:自动化测试
  • ¥20 问题请教!vue项目关于Nginx配置nonce安全策略的问题
  • ¥15 教务系统账号被盗号如何追溯设备
  • ¥20 delta降尺度方法,未来数据怎么降尺度
  • ¥15 c# 使用NPOI快速将datatable数据导入excel中指定sheet,要求快速高效
  • ¥15 再不同版本的系统上,TCP传输速度不一致
  • ¥15 高德地图2.0 版本点聚合中Marker的位置无法实时更新,如何解决呢?
  • ¥15 DIFY API Endpoint 问题。
  • ¥20 sub地址DHCP问题