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