1.2.2.3. F-próba jobb-oldali ellenhipotézissel

8.22. példa. Repterek utasszámának varianciája

Egy repülőtér vezérigazgatója feltételezi, hogy az amerikai reptereken az utasok számának varianciája nagyobb, mint a külföldi reptereken. 10%-os szignifikanciaszinten van elég bizonyíték a feltételezés alátámasztására? Az adatokat a 8.9. táblázat tartalmazza.
Forrás: (Bluman, 2012, pp. 518. Example 9-16)

**8.9. táblázat.** Utasok száma amerikai és külföldi reptereken (millió db)

Amerikai repterek	36.8	72.4	60.5	73.5	61.2	40.1
Külföldi repterek	60.7	51.2	42.7	38.6

A példából a \(H_1:{\sigma_1}^2 > {\sigma_2}^2\) ellenhipotézis olvasható ki. Ez alapján a var.test() függvényben az alternative="greater" argumentumot kell használnunk.

am.rep <- c(36.8, 72.4, 60.5, 73.5, 61.2, 40.1)
kulf.rep <- c(60.7, 51.2, 42.7, 38.6)
var.test(am.rep, kulf.rep, alternative = "greater")


    F test to compare two variances

data:  am.rep and kulf.rep
F = 2.57, num df = 5, denom df = 3, p-value = 0.2336
alternative hypothesis: true ratio of variances is greater than 1
95 percent confidence interval:
 0.2851    Inf
sample estimates:
ratio of variances 
              2.57

Nincs elegendő bizonyíték arra, hogy az amerikai reptereken az utasok számának varianciája nagyobb lenne, mint a külföldi reptereken.