# A demonstration of showing mtable results in HTML format

First, we load the package and estimate some regression models.

library(memisc)
lm0 <- lm(sr ~ pop15 + pop75,              data = LifeCycleSavings)
lm1 <- lm(sr ~                 dpi + ddpi, data = LifeCycleSavings)
lm2 <- lm(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings)

Next, we put them together into a table with mtable().

mtable123 <- mtable("Model 1"=lm0,"Model 2"=lm1,"Model 3"=lm2,
summary.stats=c("sigma","R-squared","F","p","N"))

Third, we improve the appearance of the results by relabeling the mtable object.

mtable123 <- relabel(mtable123,
"(Intercept)" = "Constant",
pop15 = "Percentage of population under 15",
pop75 = "Percentage of population over 75",
dpi = "Real per-capita disposable income",
ddpi = "Growth rate of real per-capita disp. income"
)

Finally we view the results in HTML format.

show_html(mtable123)
 Model 1 Model 2 Model 3 Constant 30 . 628*** 6 . 360*** 28 . 566*** (7 . 409) (1 . 252) (7 . 355) Percentage of population under 15 −0 . 471** −0 . 461** (0 . 147) (0 . 145) Percentage of population over 75 −1 . 934 −1 . 691 (1 . 041) (1 . 084) Real per-capita disposable income 0 . 001 −0 . 000 (0 . 001) (0 . 001) Growth rate of real per-capita disp. income 0 . 529* 0 . 410* (0 . 210) (0 . 196) sigma 3 . 9 4 . 2 3 . 8 R-squared 0 . 3 0 . 2 0 . 3 F 8 . 3 4 . 5 5 . 8 p 0 . 0 0 . 0 0 . 0 N 50 50 50

The results can be written into an HTML file using write_html(mtable123,file="mtable123.html") or the like. MS Word or LibreOffice can import such a file. An example HTML file can be found here. The file in docx format can be found here and here in open document format (odt).1

1. Unfortunately, LibreOffice currently seems to do a less than perfect job in importing HTML tables. The columns are a bit too wide and need to be adjusted by hand as do the skips after paragraphs. The example you find at the link mentioned above is thus manually adjusted.