| Angelica Lopez |
| Nicolas Lopez |
| Uso cinturon | |||
| Nivel socioeconomico | Si | No | Total |
| Bajo | 8 | 13 | 21 |
| Medio | 15 | 16 | 31 |
| Alto | 28 | 14 | 42 |
| Total | 51 | 43 | 94 |
| Uso cinturon | ||
| Nivel socioeconomico | Si | No |
| Bajo | 8 | 13 |
| Medio | 15 | 16 |
| Alto | 28 | 14 |
| Uso cinturon | ||
| Nivel socioeconomico | Si | No |
| Bajo | 11.4 | 9.6 |
| Medio | 16.8 | 14.2 |
| Alto | 22.8 | 19.2 |
Nivel_socioeconomico<-c(rep("Bajo",21), rep("Medio",31), rep("Alto",42)) Uso_cinturon<-c(rep("Si",8), rep("No",13), rep("Si",15), rep("No",16), rep("Si",28), rep("No",14)) .Table_est2<-table(Nivel_socioeconomico,Uso_cinturon) .Table_est2
## Uso_cinturon ## Nivel_socioeconomico No Si ## Alto 14 28 ## Bajo 13 8 ## Medio 16 15
chisq.test(.Table_est2)
## ## Pearson's Chi-squared test ## ## data: .Table_est2 ## X-squared = 5.2466, df = 2, p-value = 0.07256