Gostaria de inspecionar todas as observações que atingiram algum nó em uma árvore de decisão rpart. Por exemplo, no seguinte 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) *

Gostaria de ver todas as observações no nó (5) (ou seja, as 33 observações para as quais Start> = 8.5 & Start <14.5). Obviamente, eu poderia alcançá-los manualmente. Mas eu gostaria de ter alguma função como (digamos) "get_node_date". Para o qual eu poderia simplesmente executar get_node_date (5) - e obter as observações relevantes.

Alguma sugestão sobre como fazer isso?