model output to word

gistfile1.txt

### Getting model output into Word (if you really have to)


# This assumes that in your working directory you already have a word document called rtf.doc

library(rtf)  # puts data into RTF format

fit <- summary(lm(mpg ~ cyl + hp, data=mtcars))

coeffs <- as.data.frame(round(coef(fit), 2))


rtffile <- RTF("rtf.doc")  # this can be an .rtf or a .doc
addParagraph(rtffile, "This is the output of a regression coefficients:\n")
addTable(rtffile, coeffs)
done(rtffile)