Sample

x <- runif(100)
mean(x)
## [1] 0.4997076

A histogram

hist(x)