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