x <- runif(10)
x

####################################################

hist(x, freq=FALSE)

####################################################

floor(3.9)