library(xtable)
data(women) #builtin

mod1 <- lm(weight~height, data=women)
print(xtable(summary(mod1), digits=4,
             caption='Weight by height regression'),
      file='womenRegression.tex', caption.placement='top',
      table.placement='H')