negative p-value from fisher.test() (PR#7064)

Full_Name: Anja von Heydebreck
Version: 1.9.1
OS: Linux
Submission from: (NULL) (155.250.128.25)


I obtained a negative p-value from the fisher.test() function:

fisher.test(matrix(c(14576,3023,89,68),2), alternative="g")$p.value

[1] -8.426593e-13

With R 1.8.1, I got a p-value of -6.239231e-12 for this example.

Anja von Heydebreck