R 找出回归树中终端节点的数据集

我生成了一个回归树，现在我需要在每个终端节点中进行逐步回归。但是当我每次尝试运行以下代码时，我都会收到以下错误消息。有人能帮我找到每个终端节点的数据集吗

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)]

错误消息是

[.data.framedat，cases.treerp1，tn2_1，c1:11，12: 找不到函数案例。树

---

我的数据集包含11个预测变量和1个响应变量。

据我所知，cases.tree不是R包的一部分，而是与树包一起包含在一组帮助函数中。如果您为脚本提供源代码，并且可能还需要加载树包，那么您应该能够使用获取“找不到”函数错误。一个更正：我上面链接的脚本负责加载树包，因此您只需确保系统上安装了树。