 p2, <span class="dt">nrow =</span> <span class="dv">2</span>)</code></pre></div>
<p><img src="kretschmannreflectivity/loop-1.png" width="960"></p>
<div class="sourceCode"><pre class="sourceCode r"><code class="sourceCode r">minimum &lt;-<span class="st"> </span><span class="kw">ddply</span>(<span class="kw">subset</span>(d2, angle &gt;<span class="st"> </span>tir *<span class="st"> </span>pi/<span class="dv">180</span> &amp;<span class="st"> </span>thickness &gt;<span class="st"> </span><span class="dv">5<