Je ne suis pas sûr de comprendre exactement ce que vous voulez, mais voilà des instructions qui génèrent des séquences de 0 et 1 de différentes longueurs et qui fabriquent un vecteur de 0 et de 1 x<-sample(c("0","1","11","111","1111"),prob=c(0.2,0.2,...