)</a>
<a class="sourceLine" id="cb1-5" data-line-number="5">W &lt;-<span class="st"> </span><span class="kw">rbinom</span>(n, <span class="dv">1</span>, <span class="fl">0.3</span>); W[<span class="kw">sample</span>(<span class="dv">1</span><span class="op">:</span>n, n<span class="op">/</span><span class="dv">3</span>)] =<span class="st"> </span><span class="dv">2</span></a>
<a class="sourceLine" id="cb1-6" data-line-number="6">Z &lt;-<span class="st"> </span><span class="kw">rep</span>(<span class="dv">0<