Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup, message=FALSE-----------------------------------------------------
library(tidyREDCap)
library(dplyr)
## ----univariate, warning=FALSE------------------------------------------------
redcap <- readRDS(file = "./redcap.rds")
# Chips
janitor::tabyl(redcap$ingredients___1) %>%
janitor::adorn_pct_formatting() %>%
knitr::kable()
# Yellow cheese
janitor::tabyl(redcap$ingredients___2) %>%
janitor::adorn_pct_formatting() %>%
knitr::kable()
## ----loadData-----------------------------------------------------------------
redcap <- readRDS(file = "./redcap.rds")
analysis <- redcap %>%
select(starts_with("ingredients___"))
knitr::kable(tail(analysis))
## ----nachoExample-------------------------------------------------------------
patterns <- make_binary_word(analysis)
janitor::tabyl(patterns)
## ----nachoAbreviations--------------------------------------------------------
labels <- c("C", "Y", "O", "W", "M", "B", "T", "P")
patterns <- make_binary_word(analysis, the_labels = labels)
janitor::tabyl(patterns)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.