Exercise 4-5

z <- quantile(runif(100))
print(z)

##         0%        25%        50%        75%       100% 
## 0.02255288 0.28048913 0.56065610 0.77151538 0.97938793

attributes(z)

## $names
## [1] "0%"   "25%"  "50%"  "75%"  "100%"