Daniel,<br><br>tente:<br><br>> apply(objeto[,3:ncol(objeto)], 1, names[which.max()])<br><br>att,<br>FH<br><br><div class="gmail_quote">2011/12/29 Daniel Marcelino <span dir="ltr"><<a href="mailto:dmsilva.br@gmail.com">dmsilva.br@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Obrigado pela dicas. A única correção que eu preciso fazer é<br>
determinar a partir de qual coluna eu quero comparar i.e a partir da<br>
terceira etc.<br>
<br>
Abs,<br>
Daniel<br>
<br>
2011/12/28 FHRB Toledo <<a href="mailto:fernandohtoledo@gmail.com">fernandohtoledo@gmail.com</a>>:<br>
<div><div class="h5">> Paulo,<br>
><br>
> Sua sugestão é mais correta e genérica que apenas o which.max()!<br>
><br>
> Obrigado,<br>
> FH<br>
><br>
><br>
> 2011/12/28 Marcelo Rodrigo <<a href="mailto:marcelorpf@gmail.com">marcelorpf@gmail.com</a>><br>
>><br>
>> Bom dia,<br>
>><br>
>> acho que<br>
>><br>
>> > max.col(M)<br>
>><br>
>> resolve...<br>
>><br>
>><br>
>> Marcelo R. P. Ferreira<br>
>> Professor Assistente 2<br>
>> Departamento de Estatística/UFPB<br>
>> Tel.: +55 83 3216-7075/7785/7565 (ramal 210)<br>
>> <a href="http://www.de.ufpb.br/%7Emarcelo" target="_blank">http://www.de.ufpb.br/~marcelo</a><br>
>><br>
>><br>
>> Em 28 de dezembro de 2011 10:31, FHRB Toledo <<a href="mailto:fernandohtoledo@gmail.com">fernandohtoledo@gmail.com</a>><br>
>> escreveu:<br>
>><br>
>>> apply(objeto, 1, which.max)<br>
>>><br>
>>><br>
>>> 2011/12/28 Paulo J Ribeiro Jr <<a href="mailto:paulojus@leg.ufpr.br">paulojus@leg.ufpr.br</a>><br>
>>>><br>
>>>> Um exemplo<br>
>>>><br>
>>>> > M <- matrix(round(rnorm(15, m=10), dig=1), nc=3)<br>
>>>> > M<br>
>>>>     [,1] [,2] [,3]<br>
>>>> [1,] 11.6 10.3 10.2<br>
>>>> [2,] 10.6 11.0  8.6<br>
>>>> [3,] 11.6 10.7  9.7<br>
>>>> [4,] 10.5 11.1  7.8<br>
>>>> [5,] 10.3  8.4  9.4<br>
>>>> > M <- matrix(round(rnorm(15, m=10), dig=1), nc=3)<br>
>>>> > M <- as.data.frame(M)<br>
>>>> > names(M) <- c("x","y","z")<br>
>>>> > M$MAX <- apply(M, 1, max)<br>
>>>> > M$COLMAX <- apply(M, 1, function(x) names(M)[which.max(x)])<br>
>>>> > M<br>
>>>>     x    y    z  MAX COLMAX<br>
>>>> 1 10.6  8.9 10.5 10.6      x<br>
>>>> 2 11.2  8.8 10.7 11.2      x<br>
>>>> 3  8.7 10.9  7.7 10.9      y<br>
>>>> 4 11.3 10.4 10.4 11.3      x<br>
>>>> 5 10.5  9.6 10.2 10.5      x<br>
>>>><br>
>>>><br>
>>>><br>
>>>> Em Qua, 2011-12-28 às 02:02 -0500, Daniel Marcelino escreveu:<br>
>>>> > Olá a todos.<br>
>>>> ><br>
>>>> > Eu tenho um pequeno problema que é justamente encontrar qual é o maior<br>
>>>> > valor entre as colunar em cada linha.<br>
>>>> > Como eu poderia obter uma nova coluna ou mesmo um objeto com o nome da<br>
>>>> > coluna para cada valor encontrado. Alguém tem alguma sugestão?<br>
>>>> ><br>
>>>> > Daniel<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<br>
>>>> > código mínimo reproduzível.<br>
>>>><br>
>>>><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<br>
>>>> código mínimo reproduzível.<br>
>>><br>
>>><br>
>>><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<br>
>>> código mínimo reproduzível.<br>
>><br>
>><br>
>><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<br>
>> código mínimo reproduzível.<br>
><br>
><br>
><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<br>
> mínimo reproduzível.<br>
<br>
<br>
<br>
</div></div>--<br>
--------------------------------------------------<br>
View my research on these pages:<br>
<a href="http://www.crcee.umontreal.ca" target="_blank">http://www.crcee.umontreal.ca</a><br>
<a href="http://danielmarcelino.com" target="_blank">http://danielmarcelino.com</a><br>
<a href="http://ssrn.com/author=1640522" target="_blank">http://ssrn.com/author=1640522</a><br>
--------------------------------------------------<br>
My contacts:<br>
Phone 1<a href="tel:%2B514%20343%206111%20Ext%203799" value="+5143436111">+514 343 6111 Ext 3799</a><br>
Skype: d.marcelino<br>
3200 Jean Brillant,  Office C5075<br>
Montreal, QC; H3T 1N8<br>
Canada<br>
-----------------------------------------------------<br>
<div class="HOEnZb"><div class="h5">_______________________________________________<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>
</div></div></blockquote></div><br>