shapiro.test(Habits$differ)
qqnorm(Habits$differ)
qqline(Habits$differ)
wilcox.test(Habits$B, Habits$A, paired = TRUE, alternative = "less")
t.test(Habits$signrks, alternative = "less")
if (FALSE) {
library(ggplot2)
ggplot2::ggplot(data = Habits, aes(x = differ)) +
geom_dotplot(fill = "blue") +
theme_bw()
}
Run the code above in your browser using DataLab