) For the R code below graph, by hand, the histogram that this R code would generate.

R code:

Ages<-c(18,18,19,19, 20,21,21,21,21,22,23,25, 27, 28,28,30,30,32,33,34,34,36,40,45,53)

hist(Ages, breaks=c(15,20,30,45,60), col="orange", main="Ages",xlab="nonuniform bin sizes",

ylab="Density of ages")