function [chi, df] = chi2Ktable(samples)
% chi2ktable - Chi-squred test for consitency in a 2xK table
%
% Use as: [chi df] = chi2Ktable(samples)
% Inputs: a 2-row multiple column table. Each column represents a different 'class'
%       for each of the 2 -populations (1 in each row)
%
% Reference: G.K Kanji. Statistical Tests. 1993. SAGE Publications Inc. p. 75-76


totals = sum(samples);
N = sum(samples');
Nt = sum(N);
expected = [N(1).*totals./(Nt); N(2).*totals./(Nt)];
chi = sum(sum(((samples - expected).^2)./expected));
df = size(samples, 2) - 1;