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

第 12 屆 iThome 鐵人賽

DAY 15

影片教學

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

12th鐵人賽 r 數據分析預測機器學習

Denny Chang

2020-09-15 00:04:06

1623 瀏覽

分享至

您的訂閱是我製作影片的動力
訂閱點這裡~

若內容有誤，還請留言指正，謝謝您的指教

#影片程式碼
#延續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