Hello,

Voici un début de proposition:

> a <- runif(1000) * 200
> coupe <- c(0,15,30,45,100,115,130,145,200)
> hist(a, breaks=coupe,plot=FALSE)$counts
[1] 80 86 74 248 75 82 65 290...