<div dir="ltr">Uma sugestão seria:<div><br></div><div><div>dfe <- expand.grid(rownames(df), rownames(df))</div><div>lapply(names(df), function(x)cbind.data.frame(Combinacao = apply(dfe, 1, paste, collapse = ","), Valor = abs(df[dfe$Var1,x] - df[dfe$Var2,x])))<br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">2017-01-23 17:09 GMT-02:00 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>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div bgcolor="#FFFFFF" text="#000000">
<p>Tito,</p>
<p> Muito obrigado ajudou bastante!!<br>
</p><span class="">
<pre class="m_219196265876077044moz-signature" cols="72">--
==============================<wbr>==============================<wbr>==========
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: <a href="tel:(65)%2099686-6970" value="+5565996866970" target="_blank">(+55) 65 99686-6970</a> (VIVO) <a href="tel:(65)%203221-2674" value="+556532212674" target="_blank">(+55) 65 3221-2674</a> (FIXO)
<a class="m_219196265876077044moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@<wbr>yahoo.com.br</a>
<a class="m_219196265876077044moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<wbr>br</a>
Lattes: <a class="m_219196265876077044moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/<wbr>1360403201088680</a>
OrcID: <a href="http://orcid.org/0000-0001-8232-6722" target="_blank">orcid.org/0000-0001-8232-6722</a> - ResearcherID: A-5790-2016
Researchgate: <a class="m_219196265876077044moz-txt-link-abbreviated" href="http://www.researchgate.net/profile/Alexandre_Santos10" target="_blank">www.researchgate.net/profile/<wbr>Alexandre_Santos10</a>
LinkedIn: <a href="http://br.linkedin.com/in/alexandre-dos-santos-87961635" target="_blank">br.linkedin.com/in/alexandre-<wbr>dos-santos-87961635</a>
Mendeley:<a href="http://www.mendeley.com/profiles/alexandre-dos-santos6/" target="_blank">www.mendeley.com/<wbr>profiles/alexandre-dos-<wbr>santos6/</a>
==============================<wbr>==============================<wbr>==========</pre>
</span><div><div class="h5"><div class="m_219196265876077044moz-cite-prefix">Em 16/01/2017 14:06, Tito Conte
escreveu:<br>
</div>
<blockquote type="cite">
<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=<wbr>ncol(out2[[i]])),<br>
</div>
<div>rep(colnames(out2[[i]]),nrow(<wbr>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="m_219196265876077044gmail_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>
</blockquote>
<br>
</div></div></div>
<br>______________________________<wbr>_________________<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" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-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-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature">Henrique Dallazuanna<br>Curitiba-Paraná-Brasil<br>25° 25' 40" S 49° 16' 22" O</div>
</div>