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