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

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

#影片程式碼
library(naniar) 
data("iris")
iris <- subset(iris,Species!="setosa")
any_na(iris)
n <- nrow(iris)
set.seed(1117)
new <- iris[sample(n),]
t_idx <- sample(seq_len(n), size = round(0.7 * n))
traindata <- iris[t_idx,]
testdata <- iris[ - t_idx,]
library(rpart) 
library(rpart.plot)
dtreeM <- rpart(Species ~ ., data = traindata, 
                method = "class") #數值型改anova
rpart.plot(dtreeM,digits=2,varlen=20)#圖