Análisis chi-cuadrado para Tablas de contingencia (código R)

 .Table <- matrix(c(70,100,75,85,285,230,90,233), 2, 4, byrow=TRUE)
 rownames(.Table) <- c('1', '2')
 colnames(.Table) <- c('1', '2', '3', '4')
 .Table  # Counts
 .Test <- chisq.test(.Table, correct=FALSE)
 .Test