# NOT RUN {
t.test(errors ~ when, data = German, paired = TRUE)
wilcox.test(errors ~ when, data = German)
# }
# NOT RUN {
T8 <- tidyr::spread(German, when, errors) %>%
mutate(di = After - Before, adi = abs(di), rk = rank(adi), srk = sign(di)*rk)
T8
qqnorm(T8$di)
qqline(T8$di)
t.test(T8$srk)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab