sondage(n,pop)
n
pop
{ population dans laquelle on tire l'échantillon }
pop<-population(0.7) s<-sondage(100,pop) frequence(s) frequence(sondage(100,tpileface(10000,0.6)))