如何用R中的Fisher精确检验进行同质性卡方检验？

Question

我有一张桌子

smoke <- matrix(c(51,43,22,92,28,21,68,22,9),ncol=3,byrow=TRUE)
smoke <- as.table(smoke)

我知道我可以通过运行来运行同质性测试：

chisq.test (smoke, correct = FALSE)

但它将运行Pearson的卡方检验。如何使用Fisher精确检验进行同质性检验？