Могу ли я изменить результат функции summary.lm на другой язык?

Question

Можно ли изменить результат функции summary.lm на другой язык?

Я пробовал это ...

trace("summary.lm", edit=T)

и я изменил некоторые коды.

до

ans$coefficients <- cbind(Estimate = est, `Std. Error` = se, 
`t value` = tval, `Pr(>|t|)` = 2 * pt(abs(tval), rdf, 
  lower.tail = FALSE))

после

ans$coefficients <- cbind(추정치 = est, 표준오차 = se, 
                        `t value` = tval, `p value` = 2 * pt(abs(tval), rdf, 
                                                              lower.tail = FALSE))

но я не могу изменить другие термины на другой язык «Позвоните: Остатки: Мин. 1 квартал, Медиана, 3 кв., Макс.…» И т. Д. *