"op">%in%</span><span class="st"> </span>eur[,<span class="dv">1</span>]]
eas_gt &lt;-<span class="st"> </span>snp<span class="op">@</span>gt[,<span class="kw">colnames</span>(snp<span class="op">@</span>gt) <span class="op">%in%</span><span class="st"> </span>eas[,<span class="dv">1</span>]]

eur_snpMat &lt;-<span class="st"> </span><span class="kw">t</span>(eur_gt)
eas_snpMat &lt;-<span class="st"> </span><span class="kw">t</span>(eas_gt)</code></pre></div>
<p>Convert the matrix of genotypes to a numeric 