Nothing
## ---- 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"),
strat1 = sample(c("M", "F"), 17, replace = TRUE),
strat2 = sample(c("age_cat1", "age_cat2"), 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)
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.