cramer<-function(tab){a<-tab[1,1];b<-tab[1,2];c<-tab[2,1];d<-tab[2,2];
(a*d-b*c)/sqrt((a+b)*(c+d)*(a+c)*(b+d))}