urne(n1,n2,n3)
n1
n2
n3
u<-urne(100000,40000,500000) t<-tirage(1000,u) frequence(t) diagrammeenbarre(t) camembert(t)