Cómo contar las observaciones que caen en cada nodo de un árbol.

Actualmente estoy tratando con datos de vino en el paquete MMST. He dividido todo el conjunto de datos en entrenamiento y prueba, y he construido un árbol como los siguientes códigos:

library("rpart")
library("gbm")
library("randomForest")
library("MMST")

data(wine)
aux <- c(1:178)
train_indis <- sample(aux, 142, replace = FALSE)
test_indis <- setdiff(aux, train_indis)

train <- wine[train_indis,]
test <- wine[test_indis,]    #### divide the dataset into trainning and testing

model.control <- rpart.control(minsplit = 5, xval = 10, cp = 0)
fit_wine <- rpart(class ~ MalicAcid + Ash + AlcAsh + Mg + Phenols + Proa + Color + Hue + OD + Proline, data = train, method = "class", control = model.control)

windows()
plot(fit_wine,branch = 0.5, uniform = T, compress = T,  main = "Full Tree: without pruning")
text(fit_wine, use.n = T, all = T, cex = .6)

Y podría obtener una imagen como esta:

¿Qué significa el número debajo de cada nodo (por ejemplo 0/1/48 bajo Grignolino)? Si quiero saber cuántos ejemplos de entrenamiento y pruebas se incluyen en cada nodo, ¿qué debo escribir en los códigos?

Respuestas a la pregunta(1)

Su respuesta a la pregunta