t.test(number ~ test, data = Fitness, alternative = "greater", paired = TRUE)
if (FALSE) {
Wide <- tidyr::spread(Fitness, test, number) %>%
mutate(diff = After - Before)
Wide
qqnorm(Wide$diff)
qqline(Wide$diff)
t.test(Wide$diff, alternative = "greater")
}
Run the code above in your browser using DataLab