# NOT RUN {
data(ex1_db2so)
data.sym <- classic.to.sym(ex1_db2so, concept=c("state", "sex"),
variables=c("county", "group", "age","age","age","age"),
variables.types=c("$I", "$C", "$C", "$S", "$M","$H"))
sym.modal.plot(data.sym[1,5])
sym.modal.plot(data.sym[1,5], reduce = TRUE)
# }
Run the code above in your browser using DataLab