//begin.rcode table, results="asis", warning=FALSE
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)
//end.rcode