unction</span><span class="op">(</span><span class="va">xc</span> <span class="op">=</span> <span class="fl">0</span>, <span class="va">yc</span> <span class="op">=</span> <span class="fl">0</span>, <span class="va">Lmaj</span>, <span class="va">Lmin</span>, <span class="va">phi</span>, <span class="va">...</span><span class="op">)</span> <span class="op">{</span></span>
<span>    <span class="va">th</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/seq.html" class="exter