`R/BSDA-package.R`

`Cabinets.Rd`

Data for Exercise 7.83

`Cabinets`

A data frame/tibble with 20 observations on three variables

- home
a numeric vector

- supplA
estimate for kitchen cabinets from supplier A (in dollars)

- supplB
estimate for kitchen cabinets from supplier A (in dollars)

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

```
DIF <- Cabinets$supplA - Cabinets$supplB
qqnorm(DIF)
qqline(DIF)
shapiro.test(DIF)
#>
#> Shapiro-Wilk normality test
#>
#> data: DIF
#> W = 0.94331, p-value = 0.2767
#>
with(data = Cabinets,
t.test(supplA, supplB, paired = TRUE)
)
#>
#> Paired t-test
#>
#> data: supplA and supplB
#> t = 2.7159, df = 19, p-value = 0.01371
#> alternative hypothesis: true difference in means is not equal to 0
#> 95 percent confidence interval:
#> 3.967879 30.632121
#> sample estimates:
#> mean of the differences
#> 17.3
#>
with(data = Cabinets,
wilcox.test(supplA, supplB, paired = TRUE)
)
#> Warning: cannot compute exact p-value with ties
#>
#> Wilcoxon signed rank test with continuity correction
#>
#> data: supplA and supplB
#> V = 168, p-value = 0.01953
#> alternative hypothesis: true location shift is not equal to 0
#>
rm(DIF)
```