library(knitr)
n <- 100
x <- rnorm(n)
y <- 2*x + rnorm(n)
out <- lm(y ~ x)
kable(summary(out)$coef, digits=2)

	Estimate	Std. Error	t value	Pr(>|t|)
(Intercept)	-0.14	0.1	-1.41	0.16
x	1.81	0.1	17.80	0.00