## 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 ``` 這表明，反對無效假設的證據是相當有力的。