# NOT RUN {
# }
# NOT RUN {
library(furniture)
library(tidyverse)
data <- data.frame(
x = sample(c(1,2,3,4), 100, replace=TRUE),
y = sample(c(0,1), 100, replace=TRUE)
)
tableX(data, x, y)
data %>%
tableX(x, y)
data %>%
tableX(x, y, na.rm = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace