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

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

m1 <- lm(body_mass_g ~ flipper_length_mm, data = penguins)
m2 <- lm(body_mass_g ~ flipper_length_mm + species, data = penguins)
m3 <- lm(body_mass_g ~ flipper_length_mm + species + island, data = penguins)

## -----------------------------------------------------------------------------
easytable(
  m1, m2, m3,
  model.names = c("Baseline", "With Species", "Full Model")
)

## -----------------------------------------------------------------------------
easytable(
  m1, m2, m3,
  model.names = c("Baseline", "With Species", "Full Model"),
  highlight = TRUE
)

## -----------------------------------------------------------------------------
easytable(
  m1, m2, m3,
  model.names = c("Baseline", "With Species", "Full Model"),
  control.var = "island",
  highlight = TRUE
)

## -----------------------------------------------------------------------------
easytable(
  m1, m2, m3,
  model.names = c("Baseline", "With Species", "Full Model"),
  output = "latex",
  control.var = "island",
  highlight = TRUE
)

## -----------------------------------------------------------------------------
if (requireNamespace("lmtest", quietly = TRUE) &&
    requireNamespace("sandwich", quietly = TRUE)) {
  easytable(
    m1, m2, m3,
    model.names = c("Baseline", "With Species", "Full Model"),
    robust.se = TRUE
  )
}

## -----------------------------------------------------------------------------
if (requireNamespace("margins", quietly = TRUE)) {
  easytable(
    m2, m3,
    model.names = c("With Species", "Full Model"),
    margins = TRUE
  )
}

## ----eval = FALSE-------------------------------------------------------------
# easytable(
#   m1, m2, m3,
#   model.names = c("Baseline", "With Species", "Full Model"),
#   highlight = TRUE,
#   export.word = "penguins_table.docx",
#   export.csv = "penguins_table.csv"
# )