EN Model

observed_table1 <- matrix(c(59, 39, 83, 17), nrow = 2, ncol = 2, byrow = T)
rownames(observed_table1) <- c('SpanishNames', 'PopularNames')
colnames(observed_table1) <- c('correct', 'incorrect')
observed_table1
##              correct incorrect
## SpanishNames      59        39
## PopularNames      83        17
X <- chisq.test(observed_table1)
X
## 
##  Pearson's Chi-squared test with Yates' continuity correction
## 
## data:  observed_table1
## X-squared = 11.581, df = 1, p-value = 0.0006662

ES Model

observed_table2 <- matrix(c(65, 33, 41, 59), nrow = 2, ncol = 2, byrow = T)
rownames(observed_table2) <- c('SpanishNames', 'PopularNames')
colnames(observed_table2) <- c('correct', 'incorrect')
observed_table2
##              correct incorrect
## SpanishNames      65        33
## PopularNames      41        59
X <- chisq.test(observed_table2)
X
## 
##  Pearson's Chi-squared test with Yates' continuity correction
## 
## data:  observed_table2
## X-squared = 11.765, df = 1, p-value = 0.0006035

Popular Names in EN vs Spanish Names in ES

observed_table3 <- matrix(c(65, 33, 83, 17), nrow = 2, ncol = 2, byrow = T)
rownames(observed_table3) <- c('SpanishNames', 'PopularNames')
colnames(observed_table3) <- c('correct', 'incorrect')
observed_table3
##              correct incorrect
## SpanishNames      65        33
## PopularNames      83        17
X <- chisq.test(observed_table3)
X
## 
##  Pearson's Chi-squared test with Yates' continuity correction
## 
## data:  observed_table3
## X-squared = 6.4332, df = 1, p-value = 0.0112