Data for Exercise 8.54

`Funeral`

A data frame/tibble with 400 observations on two variables

- region
a factor with levels

`Central`

,`East,`

`South`

, and`West`

- cost
a factor with levels

`less than expected`

,`about what expected`

, and`more than expected`

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

```
T1 <- xtabs(~region + cost, data = Funeral)
T1
#> cost
#> region less than expected about what expected more than expected
#> Central 20 38 42
#> East 12 40 48
#> South 34 44 22
#> West 15 60 25
chisq.test(T1)
#>
#> Pearson's Chi-squared test
#>
#> data: T1
#> X-squared = 34.786, df = 6, p-value = 4.74e-06
#>
rm(T1)
```