>
> hist(replicate(1000, mean(rexp(10))), freq=F)
>
>
> runif(2)
[1] 0.3247048 0.4123641
>
> min(runif(2))
[1] 0.3690774
>
> replicate(5,min(runif(2)))
[1] 0.70570427 0.05622334 0.49966220 0.48379136 0.40738538
>
> hist( replicate( 10000, min( runif(2) ) ), freq=F)
>
> curve( 2-2*x, xlim=c(0,1), col=2, lwd=5, add=T)
>