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

## ----echo = FALSE-------------------------------------------------------------
library(openEBGM)
set.seed(5629404)
dat <- data.frame(
  var1 = c(sample(c("product_A", "product_B"), 16, replace = TRUE), "product_C"),
  var2 = c(sample(c("event_1", "event_2"), 16, replace = TRUE), "event_1"),
  stringsAsFactors = FALSE
)
dat$id <- 1:nrow(dat)

## -----------------------------------------------------------------------------
dat

## -----------------------------------------------------------------------------
processRaw(data = dat, stratify = FALSE, zeroes = FALSE)

## ----echo = FALSE-------------------------------------------------------------
set.seed(5629404)
dat <- data.frame(
  var1 = c(sample(c("product_A", "product_B"), 16, replace = TRUE), "product_C"),
  var2 = c(sample(c("event_1", "event_2"), 16, replace = TRUE), "event_1"),
  strat_sex = sample(c("M", "F"), 17, replace = TRUE),
  stringsAsFactors = FALSE
)
dat$id <- 1:nrow(dat)

## -----------------------------------------------------------------------------
dat

## -----------------------------------------------------------------------------
processRaw(data = dat, stratify = TRUE, zeroes = FALSE)

## -----------------------------------------------------------------------------
processRaw(data = dat, stratify = FALSE, zeroes = TRUE)