您的訂閱是我製作影片的動力
訂閱點這裡~
若內容有誤,還請留言指正,謝謝您的指教
#影片程式碼
#延續DAY12
future <- predict(model,type="response",testdata)
future <- as.data.frame(future)
final <- cbind(future,testdata)
library(dplyr)
final <- mutate(final,result=ifelse(future>0.5,1,0))
confusion <- table(final$Species,final$result, dnn = c("實際", "預測"))
confusion
accuracy <- sum(diag(confusion)) / sum(confusion)
accuracy
plot(Species~Sepal.Length, data=traindata)