<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>Tito,</p>
<p> Muito obrigado ajudou bastante!!<br>
</p>
<pre class="moz-signature" cols="72">--
======================================================================
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: (+55) 65 99686-6970 (VIVO) (+55) 65 3221-2674 (FIXO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
OrcID: orcid.org/0000-0001-8232-6722 - ResearcherID: A-5790-2016
Researchgate: <a class="moz-txt-link-abbreviated" href="http://www.researchgate.net/profile/Alexandre_Santos10">www.researchgate.net/profile/Alexandre_Santos10</a>
LinkedIn: br.linkedin.com/in/alexandre-dos-santos-87961635
Mendeley:www.mendeley.com/profiles/alexandre-dos-santos6/
======================================================================</pre>
<div class="moz-cite-prefix">Em 16/01/2017 14:06, Tito Conte
escreveu:<br>
</div>
<blockquote
cite="mid:CACqq46yNhTK6y17KSX8UBbzuyd189APprzofqfXdFsFBpzb++Q@mail.gmail.com"
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=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 moz-do-not-send="true"
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 moz-do-not-send="true"
href="tel:%28%2B55%29%2065%2099686-6970"
value="+5565996866970" target="_blank">(+55) 65 99686-6970</a>
(VIVO) <a moz-do-not-send="true"
href="tel:%28%2B55%29%2065%203221-2674"
value="+556532212674" target="_blank">(+55) 65 3221-2674</a>
(FIXO)<br>
<a moz-do-not-send="true"
href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br"
target="_blank">e-mails:alexandresantosbr@yaho<wbr>o.com.br</a><br>
<a moz-do-not-send="true"
href="mailto:alexandre.santos@cas.ifmt.edu.br"
target="_blank">alexandre.santos@cas.ifmt.edu.<wbr>br</a><br>
Lattes: <a moz-do-not-send="true"
href="http://lattes.cnpq.br/1360403201088680"
rel="noreferrer" target="_blank">http://lattes.cnpq.br/13604032<wbr>01088680</a><br>
OrcID: <a moz-do-not-send="true"
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 moz-do-not-send="true"
href="http://www.researchgate.net/profile/Alexandre_Santos10"
rel="noreferrer" target="_blank">www.researchgate.net/profile/A<wbr>lexandre_Santos10</a><br>
LinkedIn: <a moz-do-not-send="true"
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 moz-do-not-send="true"
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 moz-do-not-send="true"
href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a moz-do-not-send="true"
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 moz-do-not-send="true"
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>
</body>
</html>