add DirichletMixture.r
update
finish the dirichlet sampling, untested.