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