<div dir="ltr">As funções nativas.<br><div><br></div><div><span style="background-color:rgb(238,238,238)"><span style="font-family:monospace,monospace">## Mostra quantos valores unicos tem em cada coluna </span></span><br></div><span style="background-color:rgb(238,238,238)"><span style="font-family:monospace,monospace">sapply(dados, function(x) length(unique(x)))</span></span><br><br><div><span style="background-color:rgb(238,238,238)"><span style="font-family:monospace,monospace">## Os iguais a dois ...</span></span><br></div><span style="background-color:rgb(238,238,238)"><span style="font-family:monospace,monospace">sapply(dados, function(x) length(unique(x))) == 2L</span></span><br><br clear="all"><div><div class="gmail-m_6675143161068026240gmail_signature"><div dir="ltr"><div><div dir="ltr">Att,<div><a href="http://jreduardo.github.io/" target="_blank">Eduardo E. R, Junior</a><br></div></div></div></div></div></div></div>