编写模型的摘要函数

Question

我正在尝试编写类似于我开发的lm模型的新模型函数的汇总方法。我想知道如何显示通话：在summary。

例如：

#res <- summary(mod)

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

如何编写显示调用文本的代码？如上所述？

Answer 1

这对你有帮助吗？

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)