<div dir="ltr">Alexandre,<div><br></div><div><br></div><div>Eu te sugiro converter seu resultado para vetor e inserir os nomes</div><div><br></div><div>out3 = list()</div><div><br></div><div>for(i in seq(1,length(out2)))</div><div>{</div><div>out3[[i]]=as.vector(out2[[i]])</div><div><br></div><div>names=<br></div><div>paste(</div><div>rep(rownames(out2[[i]]),each=ncol(out2[[i]])),<br></div><div>rep(colnames(out2[[i]]),nrow(out2[[i]]))<br></div><div>,sep='_')</div><div><br></div><div>names(out3[[i]])=names<br></div><div><br></div><div>}</div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature" data-smartmail="gmail_signature">Tito Conte<br><br></div></div>
<br><div class="gmail_quote">Em 11 de janeiro de 2017 21:28, ASANTOS via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Caros Membros,<br>
<br>
Eu gostaria de modificar um data frame em uma matriz de comparação múltipla específica para tanto tenho um data frame DF com a nota dada por dois indivíduos (Indv) para cinco diferentes produtos químicos, sendo:<br>
<br>
Indv<-c(1,2)<br>
deltametrina<-c(1,1)<br>
fipronil<-c(5,3)<br>
imidaclopride<-c(7,5)<br>
sulfluramida<-c(3,7)<br>
tiametoxam<-c(9,9)<br>
DF<-cbind(Indv,deltametrina,fi<wbr>pronil,imidaclopride,sulfluram<wbr>ida,tiametoxam)<br>
> DF<br>
Indv deltametrina fipronil imidaclopride sulfluramida tiametoxam<br>
[1,] 1 1 5 7 3 9<br>
[2,] 2 1 3 5 7 9<br>
<br>
Depois eu montei uma matriz de comparação múltipla com a seguinte regra, a variável (cada produto) com maior valor menos o de menor valor e armazenei a nota de cada Indv em um list, sendo:<br>
<br>
df <- as.data.frame(t(DF[, -1]))<br>
out <- lapply(df, function(x) outer(x, x, function(x, y) abs(x-y)))<br>
out2 <- lapply(out, function(m) {<br>
dimnames(m) <- list(rownames(df), rownames(df))<br>
m<br>
})<br>
out2<br>
<br>
$V1<br>
deltametrina fipronil imidaclopride sulfluramida tiametoxam<br>
deltametrina 0 4 6 2 8<br>
fipronil 4 0 2 2 4<br>
imidaclopride 6 2 0 4 2<br>
sulfluramida 2 2 4 0 6<br>
tiametoxam 8 4 2 6 0<br>
<br>
$V2<br>
deltametrina fipronil imidaclopride sulfluramida tiametoxam<br>
deltametrina 0 2 4 6 8<br>
fipronil 2 0 2 4 6<br>
imidaclopride 4 2 0 2 4<br>
sulfluramida 6 4 2 0 2<br>
tiametoxam 8 6 4 2 0<br>
<br>
No entanto, gostaria que meu output fosse:<br>
<br>
$V1<br>
- [deltametrina, fipronil, 4]<br>
- [deltametrina, imidaclopride, 6]<br>
- [deltametrina, sulfluramida, 2]<br>
- [deltametrina, tiametoxam, 8]<br>
- [fipronil, imidaclopride, 2]<br>
- [fipronil, sulfluramida, 2]<br>
- [fipronil, tiametoxam, 4]<br>
- [imidaclopride, sulfluramida, 4]<br>
- [imidaclopride, tiametoxam, 2]<br>
- [sulfluramida, tiametoxam, 6]<br>
<br>
$V2<br>
- [deltametrina, fipronil, 2]<br>
- [deltametrina, imidaclopride, 4]<br>
- [deltametrina, sulfluramida, 6]<br>
- [deltametrina, tiametoxam, 8]<br>
- [fipronil, imidaclopride, 2]<br>
- [fipronil, sulfluramida, 4]<br>
- [fipronil, tiametoxam, 6]<br>
- [imidaclopride, sulfluramida, 2]<br>
- [imidaclopride, tiametoxam, 4]<br>
- [sulfluramida, tiametoxam, 2]<br>
<br>
Alguém teria alguma sugestão para ajudar?<br>
<br>
Obrigado,<br>
<br>
Alexandre<br>
<br>
-- <br>
==============================<wbr>==============================<wbr>==========<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT CEP: 78.200-000<br>
Fone: <a href="tel:%28%2B55%29%2065%2099686-6970" value="+5565996866970" target="_blank">(+55) 65 99686-6970</a> (VIVO) <a href="tel:%28%2B55%29%2065%203221-2674" value="+556532212674" target="_blank">(+55) 65 3221-2674</a> (FIXO)<br>
<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yaho<wbr>o.com.br</a><br>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<wbr>br</a><br>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" rel="noreferrer" target="_blank">http://lattes.cnpq.br/13604032<wbr>01088680</a><br>
OrcID: <a href="http://orcid.org/0000-0001-8232-6722" rel="noreferrer" target="_blank">orcid.org/0000-0001-8232-6722</a> - ResearcherID: A-5790-2016<br>
Researchgate: <a href="http://www.researchgate.net/profile/Alexandre_Santos10" rel="noreferrer" target="_blank">www.researchgate.net/profile/A<wbr>lexandre_Santos10</a><br>
LinkedIn: <a href="http://br.linkedin.com/in/alexandre-dos-santos-87961635" rel="noreferrer" target="_blank">br.linkedin.com/in/alexandre-d<wbr>os-santos-87961635</a><br>
Mendeley:<a href="http://www.mendeley.com/profiles/alexandre-dos-santos6/" rel="noreferrer" target="_blank">www.mendeley.com/prof<wbr>iles/alexandre-dos-santos6/</a><br>
==============================<wbr>==============================<wbr>==========<br>
<br>
______________________________<wbr>_________________<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" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi<wbr>-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-g<wbr>uia</a>) e fornea cdigo mnimo reproduzvel.</blockquote></div><br></div>