[R] strange fisher.test result

[Williams Scott]

A simple question - using the following fishers test it appears that the P value is significant, but the CI includes 1. Is this result correct?

 

> data.50p10min <- matrix(c(16,15, 8, 24),nrow=2)

> fisher.test(data.50p10min)

 

        Fisher's Exact Test for Count Data

 

data:  data.50p10min 

p-value = 0.03941

alternative hypothesis: true odds ratio is not equal to 1 

95 percent confidence interval:

  0.9810441 10.7771597 

sample estimates:

odds ratio 

  3.138456 

 

Thanks for comments

 

Scott 

___________________________

Dr Scott Williams MD

Peter MacCallum Cancer Centre

Melbourne Austrailia