iT邦幫忙

第 12 屆 iThome 鐵人賽

DAY 18
1
影片教學

R語言-預測方法大全系列 第 18

[Day-18] 預測操作--隨機森林-下 (random forest tuning in r)

您的訂閱是我製作影片的動力
訂閱點這裡~/images/emoticon/emoticon39.gif

Yes

若內容有誤,還請留言指正,謝謝您的指教/images/emoticon/emoticon07.gif

#影片程式碼
#延續DAY17
features <- setdiff(x = names(traindata), y = "Sepal.Length")
par(mfrow=c(1,1))
set.seed(123)
tuneRF(x = traindata[features], y = traindata$Sepal.Length,
       mtryStart = 1,ntreeTry = 450)
set.seed(123)
model <- randomForest(Sepal.Length ~ Sepal.Width+Petal.Length+Petal.Width, data = traindata,    
                      ntree = 450, mtry = 3,
                      do.trace = 50,na.action = na.roughfix)
future <- predict(model,testdata)
future <- as.data.frame(future)
final <- cbind(future,testdata)
library(dplyr)
final <- mutate(final,mape=abs(future-Sepal.Length)/Sepal.Length)
mean(final$mape)

上一篇
[Day-17] 預測操作--隨機森林-上 (random forest in r)
下一篇
[Day-19] 預測操作--xgb-上 (gb xgb in r)
系列文
R語言-預測方法大全30
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

尚未有邦友留言

立即登入留言