data(mtcars)
mtcars = apply_labels(mtcars,
vs = "Engine",
vs = num_lab("
0 V-engine
1 Straight engine
9 Other
"),
am = "Transmission",
am = num_lab("
0 Automatic
1 Manual
9 Other
")
)
with_empty = cross_cases(mtcars, am, vs)
drop_empty_rows(with_empty)
drop_empty_columns(with_empty)
drop_rc(with_empty)
Run the code above in your browser using DataLab