powered by
Fabric
str(Fabric) attach(Fabric) DIF <- With - Without qqnorm(DIF) qqline(DIF) shapiro.test(DIF) wilcox.test(With,Without,paired=TRUE,alternative="greater") detach(Fabric) remove(DIF)
Run the code above in your browser using DataLab