`R/BSDA-package.R`

`Fabric.Rd`

Data for Example 7.21

`Fabric`

A data frame/tibble with 20 observations on three variables

- garment
a numeric vector

- softner
a character variable with values

`with`

and`without`

- softness
a numeric vector

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

```
wilcox.test(softness ~ softner, data = Fabric,
paired = TRUE, alternative = "greater")
#> Warning: cannot compute exact p-value with ties
#>
#> Wilcoxon signed rank test with continuity correction
#>
#> data: softness by softner
#> V = 32, p-value = 0.3406
#> alternative hypothesis: true location shift is greater than 0
#>
if (FALSE) {
library(tidyr)
T7 <- tidyr::spread(Fabric, softner, softness) %>%
mutate(di = with - without, adi = abs(di), rk = rank(adi),
srk = sign(di)*rk)
T7
t.test(T7$srk, alternative = "greater")
}
```