<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span><div>Tente isto:</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)</div></div><div><br></div><div>which(matriz < 5, arr.ind=TRUE)</div><div><br></div></span></div><div> Valeu!</div><div><br></div><div> Fábio Mathias Corrêa<br><br></div><div> Universidade Estadual de Santa Cruz<br>Departamento de Ciências Exatas e da Terra - DCET</div><br><br><div>Campus Soane Nazaré de Andrade, km 16 Rodovia Ilhéus-Itabuna<br>CEP 45662-900.
Ilhéus-Bahia</div><div><br><br></div><div>Tel.: 73-3680-5076<br> <div style="font-size: 12pt; font-family: 'times new roman', 'new york', times, serif; "> <div style="font-size: 12pt; font-family: 'times new roman', 'new york', times, serif; "> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Luciano F. Sgarbi <luciano.f.sgarbi@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Sexta-feira, 3 de Agosto de 2012 14:36<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] Dúvidas sobre uma função<br> </font> </div> <br><div id="yiv1121882119">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="yiv1121882119gmail_quote">2012/8/3 FHRB Toledo <span dir="ltr"><<a rel="nofollow" ymailto="mailto:fernandohtoledo@gmail.com" target="_blank" href="mailto:fernandohtoledo@gmail.com">fernandohtoledo@gmail.com</a>></span><br>
<blockquote class="yiv1121882119gmail_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="yiv1121882119gmail_quote">2012/8/3 Matheus Mendes <span dir="ltr"><<a rel="nofollow" ymailto="mailto:mendesmhs@hotmail.com" target="_blank" href="mailto:mendesmhs@hotmail.com">mendesmhs@hotmail.com</a>></span><br>
<blockquote class="yiv1121882119gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div class="yiv1121882119h5"><div lang="PT-BR"><div><div class="yiv1121882119MsoNormal">Bom dia...<u></u><u></u></div>
<div class="yiv1121882119MsoNormal">
Estou com um trabalho a ser feito e gostaria de solicitar ajuda.<u></u><u></u></div><div class="yiv1121882119MsoNormal">Tenho uma planilha com a seguinte estrutura:<u></u><u></u></div><div class="yiv1121882119MsoNormal"><u></u> <u></u></div><div class="yiv1121882119MsoNormal">
Primeiro Segundo Terceiro Quarto<u></u><u></u></div><div class="yiv1121882119MsoNormal">1 2 4 4 <u></u><u></u></div><div class="yiv1121882119MsoNormal">3 6 3 1<u></u><u></u></div>
<div class="yiv1121882119MsoNormal">7 4 8 9<u></u><u></u></div><div class="yiv1121882119MsoNormal">1 2 2 9<u></u><u></u></div><div class="yiv1121882119MsoNormal"><u></u> <u></u></div>
<div class="yiv1121882119MsoNormal">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></div><div class="yiv1121882119MsoNormal">Estou com dúvidas para fazer uma função para este fim...<u></u><u></u></div>
<div class="yiv1121882119MsoNormal">Grato<u></u><u></u></div><div class="yiv1121882119MsoNormal"> <u></u><u></u></div><div class="yiv1121882119MsoNormal" align="center" style="text-align:center;"><span>Matheus Henrique Silveira Mendes<u></u><u></u></span></div><div class="yiv1121882119MsoNormal" align="center" style="text-align:center;">
<span>Engenheiro Agrônomo - UFLA<u></u><u></u></span></div><div class="yiv1121882119MsoNormal" align="center" style="text-align:center;"><span>Mestre em Genética e Melhoramento de Plantas – UFLA<u></u><u></u></span></div><div class="yiv1121882119MsoNormal" align="center" style="text-align:center;">
<span>Doutorando em Genética e Melhoramento de Plantas – UFLA<u></u><u></u></span></div><div class="yiv1121882119MsoNormal" align="center" style="text-align:center;"><span><a rel="nofollow" href="">(35)91243078</a> (TIM)<u></u><u></u></span></div>
<div class="yiv1121882119MsoNormal" align="center" style="text-align:center;"><span><a rel="nofollow" href="">(35)98871518</a> (VIVO)<u></u><u></u></span></div><div class="yiv1121882119MsoNormal"><u></u> <u></u></div>
</div></div><br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">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 rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">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);">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);">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);">Cel.
(62)8174-2262 Lab. (62)3521-1732</span><div>
<div></div><div></div></div>
</div><br>
</div>
</div><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" 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><br> </div> </div> </div></div></body></html>