R语言卡方验证 chisq.test

> a<-c(1,6)
> b<-c(3,6)
> chisq.test(rbind(a,b),correct=FALSE)

        Pearson's Chi-squared test

data:  rbind(a, b)
X-squared = 0.7619, df = 1, p-value = 0.3827

警告信息：
In chisq.test(rbind(a, b), correct = FALSE) : Chi-squared近似算法有可能不准