Create an symbolic_modal type object
sym.modal(x = character())
x
character vector
a symbolic modal
sym.modal(factor(c("a", "b", "b", "l")))