# NOT RUN {
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")
# }
# NOT RUN {
library(ggplot2)
ggplot2::ggplot(data = Habits, aes(x = differ)) +
geom_dotplot(fill = "blue") +
theme_bw()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab