# NOT RUN {
hist(Grades$grades, main = "", xlab = "Test grades", right = FALSE)
# }
# NOT RUN {
library(ggplot2)
ggplot2::ggplot(data = Grades, aes(x = grades, y = ..density..)) +
geom_histogram(fill = "pink", binwidth = 5, color = "black") +
geom_density(lwd = 2, color = "red") +
theme_bw()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab