ctree。将分类节点编号放入变量中

我有一个分类树由

library(party)
model.cart <- ctree(qtcf ~ ., data=training)

library（party）
模型（0）
&（培训$rs735951>0））]0）和
（测试$rs735951>0））]

training$node_placement <- where(model.cart)

training$node\u我认为
library（party）
中的
where
功能会有所帮助<代码>位置（model.cart）
谢谢。我在party文档中看不到函数，但training$node\u placement try
predict（model.cart，newdata=testing，type=“node”）
解决了我的问题。德克萨斯州
training$node_placement <- where(model.cart)

testing$node_placement <- where(model.cart)

Error in `$<-.data.frame`(`*tmp*`, ctreegroup, value = c(22L, 22L, 23L,  : 
  replacement has 4440 rows, data has 1478