df <- read.csv("https://raw.githubusercontent.com/allatambov/R-programming-3/master/exam-23-03/soc_ling.csv") df <- na.omit(df) t <- table(df$X2, df$X10) chisq.test(t)