R gmodels CrossTable

CrossTable(juvs2$var1,juvs2$va2,prop.r=TRUE,prop.c=FALSE,prop.t=FALSE,digit=2,format="SPSS",prop.chisq=FALSE)