<div dir="ltr"><div>Caro Rodolfo,</div><div><br></div><div>Supondo matrizes 'simples' e pequenas, daria pra usar um artifício pra editar diretamente no formato pretendido:</div><div><br></div><div><font face="courier new, monospace">dados <- '</font></div>
<div><font face="courier new, monospace">1  1  1  1  1  0  0  0  0  0  0  0  0  0  0</font></div><div><font face="courier new, monospace">0  0  0  0  0  1  1  1  1  1  1  0  0  0  0</font></div><div><font face="courier new, monospace">0  0  0  0  0  0  0  0  0  0  0  1  1  1  1</font></div>
<div><font face="courier new, monospace">1  0  0  0  0  1  0  0  0  0  0  1  0  0  0</font></div><div><font face="courier new, monospace">0  1  0  0  0  0  1  1  0  0  0  0  1  0  0</font></div><div><font face="courier new, monospace">0  0  1  0  0  0  0  0  1  0  0  0  0  1  0</font></div>
<div><font face="courier new, monospace">0  0  0  1  0  0  0  0  0  1  0  0  0  0  1</font></div><div><font face="courier new, monospace">0  0  0  0  1  0  0  0  0  0  1  0  0  0  0'</font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">df <- read.table(textConnection(dados), header=F); df</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">m  <- as.matrix(df); m</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">which(duplicated(t(m))) ### verifica colunas duplicadas (no caso a 8)</font></div><div class="gmail_extra"><br><br><div><br>
</div>-- <br><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br>
</div>
</div></div>