class="r-out co"><span class="r-pr">#&gt;</span>         assert_lengths(infos.pos, infos.chr)</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     if (!is.null(S)) </span>
<span class="r-out co"><span class="r-pr">#&gt;</span>         assert_lengths(S, infos.chr)</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     ind.noexcl &lt;- setdiff(seq_along(infos.chr), exclude)</span>
<span class="r-out co"><span class="r-pr">#&gt;</span>     sort(unlist(lapply(split(ind.noexcl, infos.chr[