Наследование классов или умножение классов в R?

Question

В объектах R S3 возникает интересная ситуация, поскольку они не наследуют классы.

Видно, что agnes.object (результат функции agnes{cluster}) имеет 2 разных класса.

library(cluster) 
example(agnes) 
class(agn1) 
[1] "agnes" "twins" 

Но то время, когда вы читаете agnes.objectdocumentation есть раздел Наследование и там есть фраза: "Класс„Агнес“наследует от„близнецов“.

Что вы думаете об этом? Это действительно наследование или просто умножение классов :)?

Answer 1

S3 допускает линейную иерархию классов. Так

> class(agn1) 
[1] "agnes" "twins" 

говорит, что agn1 является экземпляром класса agnes, который расширяет (наследует) близнецов. Здесь мы определяем общие методы и методы

## S3 generics 
foo <- function(x) UseMethod("foo") 
bar <- function(x) UseMethod("bar") 
baz <- function(x) UseMethod("baz") 

## S3 methods -- append '.' and class name 
foo.twins = function(x) "twins" 
foo.agnes = function(x) "agnes" 
bar.twins = function(x) "twins" 
baz.agnes = function(x) "agnes" 

и иллюстрируем наследование при отправке (выбор метода).

> foo(agn1) 
[1] "agnes" 
> bar(agn1) 
[1] "twins" 
> baz(agn1) 
[1] "agnes" 

Система класса S3 в R основана на экземпляре, формального определения класса нет. Наследование класса подразумевается символьным вектором. Таким образом, объект с классом "agnes" не имеет родительского класса, тогда как класс c("agnes", "twins") определяет иерархию линейных классов с родителем "twins" (даже если объект отсутствует в любом месте с классом "twins"). Потому что нет никакого формального определения класса, два объекта, объявляющих себя одного и того же класса может иметь совершенно другую структуру, например,

structure(list(), class="A") 
structure(list(x=1, y=2, z=3), class="A") 

оба может законно претендовать на класс «А»!