# NOT RUN {
data(mtcars)
mtcars = apply_labels(mtcars,
vs = "Engine",
vs = num_lab("
0 V-engine
1 Straight engine
"),
am = "Transmission",
am = num_lab("
0 Automatic
1 Manual
")
)
# 'table' from base R
table(mtcars$vs, mtcars$am)
# more sofisticated crosstable
calculate(mtcars, cro(vs, am))
# }
Run the code above in your browser using DataLab