## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## -----------------------------------------------------------------------------
library(easytable)

m1 <- lm(mpg ~ wt, data = mtcars)
m2 <- lm(mpg ~ wt + hp, data = mtcars)

easytable(m1, m2)

## -----------------------------------------------------------------------------
easytable(m1, m2, output = "word")

## -----------------------------------------------------------------------------
easytable(m1, m2, output = "latex")

## -----------------------------------------------------------------------------
easytable(
  m1, m2,
  model.names = c("Baseline", "With Controls"),
  highlight = TRUE
)

## -----------------------------------------------------------------------------
easytable(
  m1, m2,
  robust.se = TRUE
)

## ----eval = FALSE-------------------------------------------------------------
# easytable(
#   m1, m2,
#   export.word = "table.docx",
#   export.csv = "table.csv"
# )