knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
knitr::opts_chunk$set(warning = TRUE, message = TRUE, echo = FALSE, error = TRUE)

library(codebook)
library(dplyr)
data("bfi", package = 'codebook')
bfi <- bfi %>% select(-starts_with("BFIK_extra"),
                       -starts_with("BFIK_agree"),
                       -starts_with("BFIK_open"),
                       -starts_with("BFIK_neuro"),
                      BFIK_neuro_2R)

set.seed(1)
bfi$age <- rpois(nrow(bfi), 30)
compact_codebook(bfi)


rubenarslan/codebook documentation built on Nov. 13, 2022, 12:40 p.m.