%oesophageal.m


[chi2,pvalue,expected, assoc]=tablerxc([96 109; 104 666])
%%
obs= cat(3, [5 35; 5 270],...
                   [67 56; 55 277],...
                   [4 18; 44 119]);
 [chi2,df, pvalue,expected]=tablerxcxp(obs)              
 [chi2, df pvalue,exp]=conditionalrxcxp(obs,'rc_p')
 [chi2, df pvalue,exp]=partialrxcxp(obs,'r_cp')