Data for Example 7.21

Fabric

Format

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

References

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

Examples


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")
}