Me gustaría inspeccionar todas las observaciones que llegaron a algún nodo en un árbol de decisión rpart. Por ejemplo, en el siguiente código:

fit <- rpart(Kyphosis ~ Age + Start, data = kyphosis)
fit

n= 81 

node), split, n, loss, yval, (yprob)
      * denotes terminal node

 1) root 81 17 absent (0.79012346 0.20987654)  
   2) Start>=8.5 62  6 absent (0.90322581 0.09677419)  
     4) Start>=14.5 29  0 absent (1.00000000 0.00000000) *
     5) Start< 14.5 33  6 absent (0.81818182 0.18181818)  
      10) Age< 55 12  0 absent (1.00000000 0.00000000) *
      11) Age>=55 21  6 absent (0.71428571 0.28571429)  
        22) Age>=111 14  2 absent (0.85714286 0.14285714) *
        23) Age< 111 7  3 present (0.42857143 0.57142857) *
   3) Start< 8.5 19  8 present (0.42105263 0.57894737) *

Me gustaría ver todas las observaciones en el nodo (5) (es decir, las 33 observaciones para las cuales Inicio> = 8.5 y Inicio <14.5). Obviamente podría llegar a ellos manualmente. Pero me gustaría tener alguna función como (digamos) "get_node_date". Para lo cual podría ejecutar get_node_date (5) y obtener las observaciones relevantes.

¿Alguna sugerencia sobre cómo hacer esto?