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. Я думаю, ctree() возвращает объект S3 вместо S4. $ -оператор был бы подходящим в этом случае (как используется в tree.size).