tabla <- matrix(c(25, 5, 20, 10, 15, 15), nrow = 3, byrow = TRUE)
rownames(tabla) <- c("Alto", "Medio", "Bajo")
colnames(tabla) <- c("A favor", "En contra")
tabla
## A favor En contra
## Alto 25 5
## Medio 20 10
## Bajo 15 15
prueba <- chisq.test(tabla)
print(prueba)
##
## Pearson's Chi-squared test
##
## data: tabla
## X-squared = 7.5, df = 2, p-value = 0.02352
Como el p valor es menor a 0.05, entonces se rechaza la H0, indicando que El nivel de desarrollo y la postura frente al acuerdo no son independientes, es decir el desarrolo de un pais depende de la postura frente al acuerdo internacional.