以下代码使用for循环或lapply将4个不同的模型公式拟合到mtcars数据集中。在两种情况下,结果中存储的公式被称为formulas [[1]],formulas [[2]]等,而不是人类可读的公式。
有没有办法使完整的、可读的公式显示在结果中?
formulas <- list(
mpg ~ disp,
mpg ~ I(1 / disp),
mpg ~ disp + wt,
mpg ~ I(1 / disp) + wt
)
res <- vector("list", length=length(formulas))
for (i in seq_along(formulas)) {
res[[i]] <- lm(formulas[[i]], data=mtcars)
}
res
lapply(formulas, lm, data=mtcars)
有没有办法使完整的、可读的公式显示在结果中?