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