R code prototypes for DPP mixtures gibbs sampler