Sample Code for Crosstabs in R

Crosstabs in R

crosstab<- read.csv("CrossTab_Example.csv", header= TRUE)

View(crosstab)
accountsize<- table(crosstab[,2]) # accountsize
dimnames(accountsize)<- list(c("small", "medium","large"))

dim(crosstab) # check the data has expected number of rows and columns
library(gmodels)
cbc.df<- read.csv("http://goo.gl/5xQObB")
View(cbc.df)
#create a cross table 
CrossTable(cbc.df[,6], cbc.df[,9], dnn=c("cargo","choice"))

# to find the relationship between cargo and price
CrossTable(cbc.df[,6],cbc.df[,9], chisq = TRUE, expected = TRUE, dnn=c("cargo", "choice"))

# to find the relationship between seat and choice

CrossTable(cbc.df[,5],cbc.df[,9], chisq = TRUE, expected = TRUE, dnn=c("seat", "choice"))

# load the Hmisc package
library(Hmisc)
seat= cbc.df[,5]
choice=cbc.df[,9]

rcorr(cbind(seat, choice), type = c("pearson", "spearman"))