suggestion independence test that is not chi square by large data sets more than 100000 cases

M<-table(datos$remunerados.cat, datos$sociedad)
Xsq<-chisq.test(M)
Xsq