# NOT RUN {
m <- newMultitable(~ gender + age4 + marstat, data=ds)
tabBook(m, ds[ds$income > 1000000,], format="xlsx", file="wealthy-tab-book.xlsx")
book <- tabBook(m, ds) # Returns a TabBookResult
tables <- prop.table(book, 2)
# }
Run the code above in your browser using DataLab