s="va">d</span><span class="op">$</span><span class="va">S</span><span class="op">==</span><span class="va">d</span><span class="op">$</span><span class="va">lR</span></span></span>
<span class="r-in"><span></span></span>
<span class="r-in"><span><span class="co"># Drop most subjects for speed</span></span></span>
<span class="r-in"><span><span class="va">dat</span> <span class="op">&lt;-</span> <span class="va">forstmann</span><span class="op">[</span><span class="va">forstmann</span><span class="op">$</sp