Attendance of bus drivers versus shift

Data for Exercise 8.25

Bus

Format

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

References

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

Examples

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
#>