graph.affiliation(n=100,c(1/3,1/3,1/3),0.8,0.2)->g
setSeed(777)
mixer(g$x,qmin=2,qmax=6)->xout
## Not run: plot(xout)
# Produce strictly the same result
setSeed(777)
mixer(g$x,qmin=2,qmax=6)->xout
## Not run: plot(xout)
Run the code above in your browser using DataLab