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

## -----------------------------------------------------------------------------
# library(nhanesA)
# 
# # Access 2019-2020 pre-pandemic demographics
# demo_k <- nhanesA::nhanes("P_DEMO")