[Rd] Bug in FEXACT: gave negative key (PR#6986)

[fc at maths.uq.edu.au]

Hello,

I'm using R to apply Fishers exact test to a whole pile of
contingency tables, and I've run into the bug shown below.

regards,

Francis

--

> dat1 = matrix(c(0,1,0,1,0,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0,1,0,0,0,0,
           1,1,0,0,1,0,0,1,0,0,1,0,0,3,0,0,2,0,0,1,0,0,0,1,0,0,2,0,0,
          2,0,0,1,0,1,0,0,3,0,0,2,0,0,0,1,0,5,0,0,0,1,0,1,0,0),    nrow=3)

> fisher.test( dat1 )

Error in fisher.test(dat1) : Bug in FEXACT: gave negative key