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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.