R 为模型编写摘要函数

我正在尝试为一个新的模型函数编写摘要方法，该函数类似于我开发的lm模型。我想知道如何显示通话：在

摘要中

例如：

#res <- summary(mod)

# res$call
# lm(formula = y ~ x, data = pop_data[[1]])

#res这对你有帮助吗

lmcall <- function(formula, data){
  return(as.call(c(quote(lmcall), formula = formula, data = substitute(data))))
}

lmcall(cars$speed ~ cars$dist, data = cars)
#lmcall(formula = cars$speed ~ cars$dist, data = cars)

lmcall