# NOT RUN {
Selfdefe$differ <- Selfdefe$after - Selfdefe$before
Selfdefe
t.test(Selfdefe$differ, alternative = "greater")
t.test(Selfdefe$after, Selfdefe$before,
paired = TRUE, alternative = "greater")
# }
Run the code above in your browser using DataLab