Data for Exercise 8.54
Funeral
A data frame/tibble with 400 observations on two variables
a factor with levels Central
,
East,
South
, and West
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)