<span class="r-pr">#&gt;</span> </span>
<span class="r-in"><span></span></span>
<span class="r-in"><span> <span class="co"># example of using theta_null_points</span></span></span>
<span class="r-in"><span> <span class="co"># psi = 1/3 occurs when all probs = 1/3</span></span></span>
<span class="r-in"><span> <span class="va">tau_max</span> <span class="op">&lt;-</span> <span class="kw">function</span><span class="op">(</span><span class="va">pp</span><span class="op">)</span> <span class="op">{</span></spa