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

library(datazoom.social)

## ----eval=TRUE----------------------------------------------------------------

panel_data <- build_pnadc_panel(dat = pnad_sample, panel = "basic")


## ----eval=TRUE----------------------------------------------------------------

panel_data <- build_pnadc_panel(dat = pnad_sample, panel = "advanced")


## ----echo = FALSE-------------------------------------------------------------
knitr::kable(
  datazoom.social:::atrito,
  col.names = c(
    "Interview",
    "Percentage found (R)",
    "Percentage found (Stata)"
  ),
  caption = "Attrition for Panel 2"
)