如何从 R 中的线性模型返回最后两行摘要输出？

Question

在 lm 中找到回归预测后，我只想返回摘要的最后两行。最好使用什么功能？

my_model_lm(y ~ x1 + x2 + x3, data = [data])
summary_result <- summary(my_model)

我只想退货： 多重 R 平方：[值]，调整 R 平方：[值] F 统计量：[值] 和 [值] DF 上的 [值]，p 值：< [value]

我在一些基本级别上尝试了

tail()

功能、

cat()

功能、

summary(my_model$)r.squared

功能。 无法返回所需的输出。

Answer 1

您可以

capture.output

然后用

tail

选择并用

cat

打印

cat(tail(capture.output(summary_result), 3))

一个完整的例子：

> my_model <- lm(mpg ~ hp + wt, data=mtcars)
> summary_result <- summary(my_model)
> cat(tail(capture.output(summary_result), 3))
Multiple R-squared:  0.8268,    Adjusted R-squared:  0.8148  F-statistic: 69.21 on 2 and 29 DF,  p-value: 9.109e-12