iT邦幫忙

第 12 屆 iT 邦幫忙鐵人賽

DAY 15
1
影片教學

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

[Day-15] 預測操作--決策樹-下 (CART-pruning tree in r)

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

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

#影片程式碼
#延續DAY14
printcp(dtreeM) #最佳cp = min(xerror) 
剪枝 <- prune(dtreeM,cp = dtreeM$cptable[which.min(dtreeM$cptable[,"xerror"]),"CP"])
future <- predict(剪枝 , testdata, type = "class")
future <- as.data.frame(future)
final <- cbind(future,testdata)
confusion <- table(final$Species,final$future, dnn = c("實際", "預測"))
confusion
accuracy <- sum(diag(confusion)) / sum(confusion)
accuracy

上一篇
[Day-14] 預測操作--決策樹-上 (CART-decision tree in r)
下一篇
[Day-16] 集成學習簡介(ensemble learning introduction)
系列文
R語言-預測方法大全30

尚未有邦友留言

立即登入留言