我生成了一个回归树，现在我需要在每个终端节点中进行逐步回归。但是每当我尝试运行以下代码时，我会收到以下错误消息。请问有谁可以帮我找到每个终端节点的数据集？
library(XLConnect)
data1=loadWorkbook("trb88.xlsx", create = FALSE)
dat = readWorksheet(data1, sheet="Sheet1")
fit=lm(totalseverity~sl+lw+ntl+aadtln+s+med+osp+cbd+segl+fc+ow,data =dat)
library(rpart)
rp1 = rpart(factor(totalseverity)~sl+lw+ntl+aadtln+s+med+osp+cbd+segl+fc+ow,dat=dat,method="anova")
cv.rpart(rp1)
printcp(rp1)
tn1_1=rownames(table(as.matrix(rp1$where))) #Index TN
df_1=as.data.frame(rp1[["frame"]]) #Find TN
tn2_1=rownames(df_1[as.numeric(tn1_1),]) #Find TN
d1=list() #Data
d1[[i]]=dat[cases.tree(rp1,tn2_1),c(1:11,12)]
错误消息是
"Error in [.data.frame(dat, cases.tree(rp1, tn2_1), c(1:11, 12)) :
could not find function "cases.tree""
我的数据集包含11个预测变量和1个响应变量。