Eu pensei dessa forma:<div><br></div><div><div>(mat<-matrix(sample(1:40,100,r=T),10,10))</div><div><br></div><div>(aa<-ifelse(mat<=4,row(mat),0))</div><div>names(table(aa))[-1]#para selecionar todos ao mesmo tempo</div>
<div><br></div><div><br></div><div>(ab<-ifelse(mat==4,row(mat),0))</div><div>names(table(ab))[-1]#para selecionar um valor por vez</div><div><br></div><div>Abraços</div><div>Luciano</div><br><div class="gmail_quote">2012/8/3 FHRB Toledo <span dir="ltr"><<a href="mailto:fernandohtoledo@gmail.com" target="_blank">fernandohtoledo@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Olha só... quem é vivo sempre aparece!<div><br></div><div>Matheus, seu CMR não é muito claro, mas vamos ver se entendi o problema e essa solução resolve!</div>
<div><br></div><div># sua matriz...</div><div><div>matriz <- matrix(c(1, 2, 4, 4,</div>
<div> 3, 6, 3, 1,</div><div> 7, 4, 8, 9,</div><div> 1, 2, 2, 9), 4, 4, byrow = TRUE)</div></div><div><br></div><div># outra matriz um pouco maior!</div><div>outra <- matrix(sample(1:10, 1000, replace = TRUE), 250, 4)</div>
<div><br></div><div># a funcao...</div><div>funcao <- function(x)ifelse(sum(match(x, c(1, 2, 3)), na.rm = TRUE) != 0, 'tem', 'nao')</div><div><br></div><div># aplicando-a a sua e a outra matriz</div><div>
apply(matriz, 1, funcao)</div><div>apply(outra, 1, funcao)<br><br>A lógica por tras da função é: faz-se um match nos valore da linha da matriz com o seus valores alvo (1, 2 e 3), retornando a posição desses valores na linha ou NA! depois soma-se esses valores, excluindo os NA, se a soma for diferente de zero pelo menos um dos numeros (1, 2 ou 3) têm na referida linha!</div>
<div><br></div><div>Resta só agora esperarmos por uma solução muito mais elegante dos colegas da lista.</div><div><br></div><div>abraço,</div><div>FH<br><br><div class="gmail_quote">2012/8/3 Matheus Mendes <span dir="ltr"><<a href="mailto:mendesmhs@hotmail.com" target="_blank">mendesmhs@hotmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><div lang="PT-BR" link="blue" vlink="purple"><div><p class="MsoNormal">Bom dia...<u></u><u></u></p>
<p class="MsoNormal">
Estou com um trabalho a ser feito e gostaria de solicitar ajuda.<u></u><u></u></p><p class="MsoNormal">Tenho uma planilha com a seguinte estrutura:<u></u><u></u></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">
Primeiro Segundo Terceiro Quarto<u></u><u></u></p><p class="MsoNormal">1 2 4 4 <u></u><u></u></p><p class="MsoNormal">3 6 3 1<u></u><u></u></p>
<p class="MsoNormal">7 4 8 9<u></u><u></u></p><p class="MsoNormal">1 2 2 9<u></u><u></u></p><p class="MsoNormal"><u></u> <u></u></p>
<p class="MsoNormal">Preciso identificar quais as linhas que recebem os números 1, 2, 3 e 4, não importando a ordem, ou seja, se é primeiro, segundo, ...<u></u><u></u></p><p class="MsoNormal">Estou com dúvidas para fazer uma função para este fim...<u></u><u></u></p>
<p class="MsoNormal">Grato<u></u><u></u></p><p class="MsoNormal"> <u></u><u></u></p><p class="MsoNormal" align="center" style="text-align:center"><span>Matheus Henrique Silveira Mendes<u></u><u></u></span></p><p class="MsoNormal" align="center" style="text-align:center">
<span>Engenheiro Agrônomo - UFLA<u></u><u></u></span></p><p class="MsoNormal" align="center" style="text-align:center"><span>Mestre em Genética e Melhoramento de Plantas – UFLA<u></u><u></u></span></p><p class="MsoNormal" align="center" style="text-align:center">
<span>Doutorando em Genética e Melhoramento de Plantas – UFLA<u></u><u></u></span></p><p class="MsoNormal" align="center" style="text-align:center"><span><a href="tel:%2835%2991243078" value="+553591243078" target="_blank">(35)91243078</a> (TIM)<u></u><u></u></span></p>
<p class="MsoNormal" align="center" style="text-align:center"><span><a href="tel:%2835%2998871518" value="+553598871518" target="_blank">(35)98871518</a> (VIVO)<u></u><u></u></span></p><p class="MsoNormal"><u></u> <u></u></p>
</div></div><br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto: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></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">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 clear="all"><div><br></div>-- <br>
<blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><span style="color:rgb(51,51,51);font-family:'Arial Narrow',sans-serif">Luciano
F. Sgarbi</span><br><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><font color="#333333" face="'Arial Narrow', sans-serif">Mestrando em Ecologia e Evolução - UFG</font><br><blockquote style="margin:0 0 0 40px;border:none;padding:0px">
</blockquote><span style="color:rgb(51,51,51);font-family:'Arial Narrow',sans-serif">Laboratório
de Ecologia de Insetos</span><br><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><div><span style="color:rgb(51,51,51);font-family:'Arial Narrow',sans-serif">Cel.
(62)8174-2262 Lab. (62)3521-1732</span><div>
<p></p><p></p></div>
<div style="display:inline"></div></div><br>
</div>