#————————————————————————————————————————————————————————————————————————————
# Two-Dimensional Table
# Example 1a: Cross Tabulation for 'vs' and 'am'
crosstab(mtcars, vs, am)
# Alternative specification without using the '...' argument
crosstab(mtcars[, c("vs", "am")])
# Example 1b: Cross Tabulation, print all percentages
crosstab(mtcars, vs, am, print = "all")
# Example 1c: Cross Tabulation, print row-wise percentages
crosstab(mtcars, vs, am, print = "row")
# Example 1d: Cross Tabulation, print col-wise percentages
crosstab(mtcars, vs, am, print = "col")
# Example 1e: Cross Tabulation, print all percentages, split output table
crosstab(mtcars, vs, am, print = "all", split = TRUE)
#————————————————————————————————————————————————————————————————————————————
# Three-Dimensional Table
# Example 2a: Cross Tabulation for 'vs', 'am', ane 'gear'
crosstab(mtcars, vs:gear)
# Alternative specification without using the '...' argument
crosstab(mtcars[, c("vs", "am", "gear")])
# Example 2b: Cross Tabulation, print all percentages
crosstab(mtcars, vs:gear, print = "all")
# Example 2c: Cross Tabulation, print all percentages, split output table
crosstab(mtcars, vs:gear, print = "all", split = TRUE)
if (FALSE) {
#————————————————————————————————————————————————————————————————————————————
# Write Results
# Example 3a: Write Results into a text file
crosstab(mtcars, vs:gear, print = "all", write = "Crosstab.txt")
# Example 3b: Write Results into an Excel file
crosstab(mtcars, vs:gear, print = "all", write = "Crosstab.xlsx")
}
Run the code above in your browser using DataLab