# NOT RUN {
wilcox.test(softness ~ softner, data = Fabric,
paired = TRUE, alternative = "greater")
# }
# NOT RUN {
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")
# }
Run the code above in your browser using DataLab