## 15.3 平均差的贝叶斯因子 正如我们在贝叶斯分析一章中所讨论的，贝叶斯因子提供了一种更好地量化证据的方法，支持或反对零差异假设。在这种情况下，我们要针对零假设进行测试，即差异小于零，因为差异是由第一组（“否”）和第二组（“是”）之间的函数计算得出的。因此，我们指定了一个从零到无穷大的“空间隔”，这意味着替代值小于零。 ```r # compute bayes factor for group comparison bf <- ttestBF( formula = TVHrsNum ~ RegularMarij, data = NHANES_sample, nullInterval = c(0, Inf) ) bf ``` ```r ## Bayes factor analysis ## -------------- ## [1] Alt., r=0.707 0<d<Inf : 0.043 ±0% ## [2] Alt., r=0.707 !(0<d<Inf) : 22 ±0% ## ## Against denominator: ## Null, mu1-mu2 = 0 ## --- ## Bayes factor type: BFindepSample, JZS ``` 这表明，反对无效假设的证据是相当有力的。