我尝试在 R 中使用非常简单的决策树算法,但是在绘制 R48 算法的图时,所有节点都标记为"setosa"
,但在许多站点上,并且根据我的想法,节点一定是不同的。有人可以指出代码中的错误吗?
library(RWeka)
m1 <- J48(Species ~ ., data = iris)
m1
summary(m1)
table(iris$Species, predict(m1))
## use partykit package
if(require("partykit", quietly = TRUE)) plot(m1)
## using party
if(require("party", quietly = TRUE)) plot(m1)