md1 <- read.csv("http://www.stat.ufl.edu/~winner/data/marij1.csv") # md1 <- read.csv("marij1_indiv.csv") attach(md1); names(md1) install.packages("vcdExtra") library(vcdExtra) (md.table <- table(marijUse,party)) GKgamma(md.table) cor.test(marijUse,party, method="kendall")