打印线性回归结果

# models
fit1 <- lm(mpg ~ wt, data = mtcars)
fit2 <- lm(mpg ~ wt+hp, data = mtcars)
fit3 <- lm(mpg ~ wt+hp+cyl, data = mtcars)

# export to html
texreg::htmlreg(list(fit1,fit2,fit3),file='models.html')

# export to doc
texreg::htmlreg(list(fit1,fit2,fit3),file='models.doc')

结果看起来像一张纸上的表格。

texreg::htmlreg() 函数中还有几个额外的方便参数。以下是最有用参数的用例。

# export to html
texreg::htmlreg(list(fit1,fit2,fit3),file='models.html',
                single.row = T,
                custom.model.names = LETTERS[1:3],
                leading.zero = F,
                digits = 3)

结果就像这样的表