r - 尝试访问树时出现 S4 对象错误

Question

我收到此错误：

> mod1 <- ctree(Age ~ Kyphosis, data = kyphosis)
> tree.size(mod1@tree)
Error in tree.size(mod1@tree) : 
  trying to get slot "tree" from an object (class "constparty") that is not an S4 object

这里，tree.size 定义为：

> tree.size
function(tree) {
  if (is.null(tree)) {
    return(0)
  } else {
    return(1 + tree.size(tree$left) + tree.size(tree$right))
  }
}

我如何摆脱这个错误，为什么会发生？

Answer 1

您正在使用需要 S4 对象的 @-operator。我猜，ctree() 返回一个 S3 对象而不是 S4。$-operator 在这种情况下是合适的（如在 tree.size 中使用的那样）。