Exercise 4-5

h <- hist(runif(100), plot = FALSE)
print(h)

## $breaks
##  [1] 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0
## 
## $counts
##  [1] 11  9 12 13 10  6  7  3 18 11
## 
## $density
##  [1] 1.1 0.9 1.2 1.3 1.0 0.6 0.7 0.3 1.8 1.1
## 
## $mids
##  [1] 0.05 0.15 0.25 0.35 0.45 0.55 0.65 0.75 0.85 0.95
## 
## $xname
## [1] "runif(100)"
## 
## $equidist
## [1] TRUE
## 
## attr(,"class")
## [1] "histogram"