Используйте один класс объекта с несколькими

Question

Это общий вопрос, мотивированный определенным событием.

Когда объект содержит несколько классов, каждый из которых имеет разные общие действия, как я могу указать использование класса «this», а не класса «this»?

Пример кода приведен в комплекте с geepack.

library(stargazer) 
library(geepack) 

data(dietox) 
dietox$Cu <- as.factor(dietox$Cu) 
mf <- formula(Weight~Cu*(Time+I(Time^2)+I(Time^3))) 

gee0 <- glm(mf, data = dietox, family = poisson("identity")) # a wrong model 
gee1 <- geeglm(mf, data=dietox, id=Pig, family=poisson("identity"),corstr="ar1") 

class(gee0) 
class(gee1) 

summary(gee0) 
summary(gee1) 

stargazer(gee0, type = "text") 
stargazer(gee1, type = "text") 

Я хотел бы работать с объектом класса «glm», а не с объектом класса «geeglm».

@Richard Scriven: Я просто хотел бы вывести результаты в отчет о звездном (...) отчете. Спасибо за уточняющий вопрос.

Answer 1

Система класса, которая использует атрибут class(foo), не сильно типизирована. Вектор класса используется R, чтобы определить, какие методы использовать, когда этот объект передается в общий тип, например print. Например, если вы должны были позвонить print(gee1), R сначала будет искать функцию с именем print.geeglm, которая в этом случае будет найдена в пакете geepack, а R вызывает эту функцию с аргументами, указанными в print().

Если R не нашел функцию с именем print.geeglm, он будет затем искать print.gee, то print.glm, то print.default.

Итак, gee1 не содержит 3 объекта с разными классами, это один объект с вектором класса, который информирует R, где искать общие методы.

Чтобы сделать вещи несколько более запутанными, R имеет несколько типов систем, а класс vetcor используется системой типа S3. Поиск Google для «R s3 class» даст вам больше информации о системе класса R.