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