Olá Luciano, os comandos são os seguintes:<br /><br /> mat<-data.frame(matrix(sample(1:2,200,r=T),100,2))<br /> colnames(mat) <- c("x","y")<br /> attach(mat)<br /><br /># Somando a ocorrência dos 4 pontos nas 100 observações:<br /><br /> pt1 <- sum(x==1 & y==1)<br /> pt2 <- sum(x==1 & y==2)<br /> pt3 <- sum(x==2 & y==1)<br /> pt4 <- sum(x==2 & y==2)<br /> <br /><em>Att.<br />André</em><br /><br />
<hr style="border-top: 1px solid #ccc;" />
Em 05/08/2012 19:51, <strong>Luciano F. Sgarbi < luciano.f.sgarbi@gmail.com ></strong> escreveu:<br />Olá Benilton,
<div>Era isso mesmo... Passei a tarde toda quebrando a cabeça nisso :)</div>
<div>Muito obrigado!</div>
<div>Abraços</div>
<div>Luciano<br /><br />
<div class="gmail_quote">2012/8/5 Benilton Carvalho <span dir="ltr"><<a href="http://mce_host/compose?to=beniltoncarvalho@gmail.com" target="_blank">beniltoncarvalho@gmail.com</a>></span><br />
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Se vc se refere às combinações observadas...
<div></div>
<div>unique(mat)</div>
<span class="HOEnZb"><span style="color: #888888;">
<div></div>
</span></span>
<div><span class="HOEnZb"><span style="color: #888888;">b</span></span>
<div>
<div class="h5"><br /><br />On Sunday, 5 August 2012, Luciano F. Sgarbi  wrote:<br />
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">#Prezados,
<div>#Estou com um problema, e talvez alguém saiba a resposta.</div>
<div>#Vejam o exemplo:</div>
<div>
<div></div>
<div>#---------------------------------------------------------</div>
<div>mat<-matrix(sample(1:2,200,r=T),100,2)</div>
<div>plot(mat,pch=16)</div>
<div>#---------------------------------------------------------</div>
<div></div>
<div>#Nesse caso eu tenho 100 observações, mas o número de combinações(ou pontos) é apenas 4.</div>
<div>#Alguém sabe se existe algum comando para contar esse número de combinações?</div>
</div>
<div>#Desde já muito obrigado.</div>
<div></div>
<div>#Abraços,</div>
<div>#Luciano</div>
<div></div>
<div>-- <br /><span style="color:#333333;font-family:'Arial Narrow',sans-serif">Luciano F. Sgarbi</span><br /><span style="font-family: 'Arial Narrow',sans-serif; color: #333333;">Mestrando em Ecologia e Evolução - UFG</span><br />
<blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote>
<span style="color:#333333;font-family:'Arial Narrow',sans-serif">Laboratório de Ecologia de Insetos</span><br />
<div><span style="color:#333333;font-family:'Arial Narrow',sans-serif">Cel. <a href="tel:%2862%298174-2262" target="_blank">(62)8174-2262</a> Lab. <a href="tel:%2862%293521-1732" target="_blank">(62)3521-1732</a></span>
<div>
<p> </p>
<p> </p>
</div>
</div>
</div>
</blockquote>
</div>
</div>
</div>
<br />_______________________________________________<br /> R-br mailing list<br /> <a href="http://mce_host/compose?to=R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br /> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br /> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br /></blockquote>
</div>
<br /><br />
<div></div>
-- <br /> <span style="color:#333333;font-family:'Arial Narrow',sans-serif">Luciano F. Sgarbi</span><br /><span style="font-family: 'Arial Narrow',sans-serif; color: #333333;">Mestrando em Ecologia e Evolução - UFG</span><br />
<blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote>
<span style="color:#333333;font-family:'Arial Narrow',sans-serif">Laboratório de Ecologia de Insetos</span><br />
<div><span style="color:#333333;font-family:'Arial Narrow',sans-serif">Cel. (62)8174-2262   Lab. (62)3521-1732</span>
<div>
<p> </p>
<p> </p>
</div>
</div>
</div>
<br />