Symbolic modal
is.sym.modal(x)
x
an object to be tested
returns TRUE if its argument's value is a symbolic_modal and FALSE otherwise.
x <- sym.modal(factor(c("a", "b", "b", "l"))) is.sym.modal(x)