temp = hist(varAleatoria)
lines(c(min(temp$breaks), temp$mids, max(temp$breaks)), c(0, temp$counts, 0), type="l")