x <- rnorm(100, 10, 5) y <- 2*x + rnorm(100, 0, 2) out <- lm(y ~ x) coef_tab <- summary(out)$coef library(ascii) ascii(coef_tab, include.rownames=TRUE, include.colnames=TRUE, header=TRUE)
Estimate |
Std. Error |
t value |
Pr(>|t|) |
|
(Intercept) |
0.49 |
0.45 |
1.08 |
0.28 |
x |
2.00 |
0.04 |
48.16 |
0.00 |