Data for Exercise 8.25

`Bus`

A data frame/tibble with 29363 observations on two variables

- attendance
a factor with levels

`absent`

and`present`

- shift
a factor with levels

`am`

,`noon`

,`pm`

,`swing`

, and`split`

Kitchens, L. J. (2003) *Basic Statistics and Data Analysis*.
Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.

```
T1 <- xtabs(~attendance + shift, data = Bus)
T1
#> shift
#> attendance am noon pm swing split
#> absent 454 208 491 160 1599
#> present 5806 2112 3989 3790 10754
chisq.test(T1)
#>
#> Pearson's Chi-squared test
#>
#> data: T1
#> X-squared = 336.43, df = 4, p-value < 2.2e-16
#>
```