Submitted by Professor Shortell on Wed, 10/04/2017 - 19:45
#Recode
V162034r<-'NA'; V162034r[V162034a==1]<-1; V162034r[V162034a==2]<-2
#Contingency table
CrossTable(V162034r,V161310a,prop.r=FALSE,prop.c=TRUE,prop.t=FALSE,prop.chisq=FALSE,chisq=TRUE,fisher=TRUE)