# NOT RUN {
library(furniture)
## Table 1
data %>%
table1(var1, var2, var3,
splitby = ~groupvar,
test = TRUE)
## Table F
data %>%
tableF(var1)
## Washer
x = washer(x, 7, 8, 9)
x = washer(x, is.na, value=0)
## Crosstabs Operator
f1 %xt% f2
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab