RG#54: Notched boxplot

# data 

set.seed(13)
x <- c(rnorm(1000, 50, 20), rnorm(500, 70, 10), rnorm(500, 30, 10), runif(1000, 0, 100))
g <- rep (c("normal", "binormal", "uniform"), each = 1000)

#plot 

boxplot(x, col = c("bisque"), notch = TRUE)

boxplot(x ~ g, col = c("bisque", "cyan4", "yellow"), notch = TRUE)