Code covered by the BSD License  

Highlights from
Fisher's exact test with n x m contingency table

Fisher's exact test with n x m contingency table

by

 

09 Jun 2009 (Updated )

Do you have problem with Fisher's exact test where the contingency table is more than 2*2?

FisherExactTest_R( X,Y )
function P_value = FisherExactTest_R( X,Y ) 
% if only one parameter is set, we assume it's a contigency table.
% if two parameters are set, we consider them as two vectors. 

% Fisher exact test is done by R language, in the form: fisher.test(x,y)
% Herein, the null hypothesis is that x and y is independent, the
% alternative hypothesis can be "less","great","two.sides". If the p_value
% is less than 0.05, it means that x and y is dependent.

callR('.REvalString','ftest <- function(Table){S=fisher.test(Table, alternative = "two.sided"); return(S$p.value); }');

if nargin == 1 % it is a table.
   P_value = callR('ftest',X);
elseif nargin == 2
   P_value = callR('ftest',ContingencyTable(X,Y) );
end

end

Contact us