data(ex1_db2so)
ex1 <- ex1_db2so
result <- classic.to.sym(
x = ex1_db2so,
concept = c(state, sex),
variables = c(county, group, age),
county = mean(county),
age_hist = sym.histogram(age, breaks = pretty(ex1_db2so$age, 5))
)
result
Run the code above in your browser using DataLab