# NOT RUN {
library(ggplot2)
# Plot sampling distributions
ggplot(tactile_prop_red, aes(x = prop_red)) +
geom_histogram(binwidth = 0.025) +
labs(x = expression(hat(p)), y = "Number of samples",
title = "Sampling distribution of p_hat based 33 samples of size n = 50")
# }
Run the code above in your browser using DataLab