Как изменить метод печати системы?

Question

по умолчанию R Метод печати для glm (print.glm) сообщает Null Deviance и Остаточная Deviance но не относительный размер последние как часть бывшего, которая, ИМО, более релевантная для оценки соответствия модели чем абсолютные значения.

Я хочу изменить метод, чтобы он напечатал относительное отклонение. Например, прямо сейчас R печатает:

Degrees of Freedom: 36 Total (i.e. Null); 35 Residual 
Null Deviance:  182.8 
Residual Deviance: 10.22 AIC: 63.39 

Я хочу, чтобы напечатать

Degrees of Freedom: 36 Total (i.e. Null); 35 Residual 
Null Deviance:  182.8 
Residual Deviance: 10.22 AIC: 63.39 
Relative Residual Deviance: 5.59% 

(NB: Я знаю, как вычислить и довольно напечатать номер)

Различные системы обеспечивают разные средства для этого; например, Emacs имеет крючки и CLOS MOP имеет after-methods, но я не знаю, как это сделать в R.

Как это сделать в R? Есть ли у R методы отборочных?

Спасибо!

PS. Я не хочу явно редактировать системный код, и я не хочу его копировать и изменять: когда выпущена следующая версия R, я не хочу редактировать свой код, чтобы включить улучшения, внесенные в систему. print.glm ,

Answer 1

Ах, это оказалось просто:

print.glm.system <- print.glm 
print.glm <- function(glm, ...) { 
    print.glm.system(glm, ...) 
    cat("Relative Residual Deviance: ",100*glm$deviance/glm$null.deviance,"%\n") 
    invisible(glm) 
} 

PS. Это не бесконечный цикл, потому что print.glm.system содержит оригинальную функцию «системы» объект.