Uma curiosidade sobre a questão 1.4: comparem os plots do histograma com a densidade e percebam como o histograma padrão faz um trabalho PÉSSIMO

x <- c(202,151,124,51,122,94,229,78,119,323,157,303)
hist(x)
library(MASS)
truehist(x)
plot(density(x))