if (FALSE) {
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)
}
Run the code above in your browser using DataLab