#' ---
#' title: "Codebook for cleaned data"
#' author: ""
#' output: github_document
#' ---

#+ echo = FALSE
options(knitr.kable.NA = '')

dat <- openxlsx::read.xlsx("../HMC_codebook.xlsx")

#' * `qualtricsname`: Original name as used in the Qualtrics survey, see
#'   [materials](../../02_material)
#' 
#' * `varname`: Variable name used in the CSV files for each wave, see
#'    [03_cleaned_data](03_cleaned_data)
#' 
#' * `scale`: (Possible) Name of a scale; indicates which items belong to the
#'    same scale
#' 
#' * `coding`: How variable was coded, e.g., 1: Yes, 2: No, etc.
#' 
#' * `inverse`: If item should be inversed before adding it to a scale
#' 
#' * `info`: Additional information relevant for item, e.g., correct or open
#'    response
#' 
#' * `reference`: Reference from which the scale was taken; "self" means items
#'    have been self-generated
#' 
#' * `wave`: What wave item was included in
#' 
#' * `description`: Text that was presented to participants for this item


#+ echo = FALSE
subset(dat, select = c(-wave1, -wave2, -wave3, -wave4, -wave5, -wave6)) |>
  knitr::kable()

