这个红框的数值是怎么计算的来的?
- fit <- rpart(Kyphosis~Age + Number + Start,
- data=kyphosis, method="class",control=ct,
- parms = list(prior = c(0.65,0.35), split = "information"));
- library(rpart.plot);
- rpart.plot(fit, branch=1, branch.type=2, type=1, extra=102,
- shadow.col="gray", box.col="green",
- border.col="blue", split.col="red",
- split.cex=1.2, main="Kyphosis决策树");