Bom dia,<br><br>acho que<br><br>> max.col(M)<br><br>resolve...<br><br><br clear="all">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><div class="gmail_quote">Em 28 de dezembro de 2011 10:31, FHRB Toledo <span dir="ltr"><<a href="mailto:fernandohtoledo@gmail.com">fernandohtoledo@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

apply(objeto, 1, which.max)<div class="HOEnZb"><div class="h5"><br><br><div class="gmail_quote">2011/12/28 Paulo J Ribeiro Jr <span dir="ltr"><<a href="mailto:paulojus@leg.ufpr.br" target="_blank">paulojus@leg.ufpr.br</a>></span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
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>
<div><div>> 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" 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>
<br>
<br>
_______________________________________________<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>
</div></div></blockquote></div><br>
</div></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>