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