全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
1097 0
2018-04-18
这是我的代码

w<-read.csv("e:/RF/huizong111.csv",header = T)
ind<-sample(2,nrow(w),replace = TRUE,prob = c(0.75,0.25))
traindata<-w[ind==1,]
testdata<-w[ind==2,]
train<-as.matrix(traindata)
test<-as.matrix(testdata[,-1])
y<-as.matrix(traindata$fl)
library(xgboost)
xgb <- xgboost(data = train, label = y, eta = 0.1,max_depth = 15, nround=25, subsample = 0.5,colsample_bytree = 0.5,seed = 1,eval_metric = "merror",objective = "multi:softprob",num_class = 12,nthread = 3)

[1]        train-merror:0.000000
[2]        train-merror:0.000000
[3]        train-merror:0.000000
[4]        train-merror:0.000000
[5]        train-merror:0.000000
[6]        train-merror:0.000000
[7]        train-merror:0.000000
[8]        train-merror:0.000000
[9]        train-merror:0.000000
[10]        train-merror:0.000000
[11]        train-merror:0.000000
[12]        train-merror:0.000000
[13]        train-merror:0.000000
[14]        train-merror:0.000000
[15]        train-merror:0.000000
[16]        train-merror:0.000000
[17]        train-merror:0.000000
...
结果都为0,不知道为什么



附件列表

shuju9.xlsx

大小:19.41 KB

 马上下载

数据

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群