str(Speed)
attach(Speed)
qqnorm(differ)
qqline(differ)
shapiro.test(differ)
t.test(After,Before,paired=TRUE,alternative="greater")
wilcox.test(After,Before,paired=TRUE,alternative="greater")
detach(Speed)
Run the code above in your browser using DataLab