"r-out co"><span class="r-pr">#&gt;</span>    0.48 </span>
<span class="r-out co"><span class="r-pr">#&gt;</span> </span>
<span class="r-in"><span></span></span>
<span class="r-in"><span><span class="co">## specifying theta_sampler</span></span></span>
<span class="r-in"><span></span></span>
<span class="r-in"><span><span class="va">dirich_sampler</span> <span class="op">&lt;-</span> <span class="kw">function</span><span class="op">(</span><span class="va">d_k</span>, <span class="va">chunksize</span><span 