100" size="3">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;within[j, k] &lt;- step(bound[k - 1] - theta[j + 11]) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;- step(bound[k] - theta[j + 11])<br>
</font><font face="Arial" color="#000100" size="1">&nbsp;&nbsp;&nbsp;
</font><font face="Arial" color="#000100" size="3">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<br>
</font><font face="Arial" color="#000100" size="1">&nbsp;&nbsp;&nbsp;
</font><font face="Arial" 