powered by
Fitness
str(Fitness) attach(Fitness) DIF <- After - Before qqnorm(DIF) qqline(DIF) shapiro.test(DIF) t.test(After,Before,paired=TRUE,alternative="greater") detach(Fitness)
Run the code above in your browser using DataLab