Caros Membros, 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: Indv<-c(1,2) deltametrina<-c(1,1) fipronil<-c(5,3) imidaclopride<-c(7,5) sulfluramida<-c(3,7) tiametoxam<-c(9,9) DF<-cbind(Indv,deltametrina,fipronil,imidaclopride,sulfluramida,tiametoxam)
DF Indv deltametrina fipronil imidaclopride sulfluramida tiametoxam [1,] 1 1 5 7 3 9 [2,] 2 1 3 5 7 9
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: df <- as.data.frame(t(DF[, -1])) out <- lapply(df, function(x) outer(x, x, function(x, y) abs(x-y))) out2 <- lapply(out, function(m) { dimnames(m) <- list(rownames(df), rownames(df)) m }) out2 $V1 deltametrina fipronil imidaclopride sulfluramida tiametoxam deltametrina 0 4 6 2 8 fipronil 4 0 2 2 4 imidaclopride 6 2 0 4 2 sulfluramida 2 2 4 0 6 tiametoxam 8 4 2 6 0 $V2 deltametrina fipronil imidaclopride sulfluramida tiametoxam deltametrina 0 2 4 6 8 fipronil 2 0 2 4 6 imidaclopride 4 2 0 2 4 sulfluramida 6 4 2 0 2 tiametoxam 8 6 4 2 0 No entanto, gostaria que meu output fosse: $V1 - [deltametrina, fipronil, 4] - [deltametrina, imidaclopride, 6] - [deltametrina, sulfluramida, 2] - [deltametrina, tiametoxam, 8] - [fipronil, imidaclopride, 2] - [fipronil, sulfluramida, 2] - [fipronil, tiametoxam, 4] - [imidaclopride, sulfluramida, 4] - [imidaclopride, tiametoxam, 2] - [sulfluramida, tiametoxam, 6] $V2 - [deltametrina, fipronil, 2] - [deltametrina, imidaclopride, 4] - [deltametrina, sulfluramida, 6] - [deltametrina, tiametoxam, 8] - [fipronil, imidaclopride, 2] - [fipronil, sulfluramida, 4] - [fipronil, tiametoxam, 6] - [imidaclopride, sulfluramida, 2] - [imidaclopride, tiametoxam, 4] - [sulfluramida, tiametoxam, 2] Alguém teria alguma sugestão para ajudar? Obrigado, Alexandre -- ====================================================================== 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) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 OrcID: orcid.org/0000-0001-8232-6722 - ResearcherID: A-5790-2016 Researchgate: www.researchgate.net/profile/Alexandre_Santos10 LinkedIn: br.linkedin.com/in/alexandre-dos-santos-87961635 Mendeley:www.mendeley.com/profiles/alexandre-dos-santos6/ ======================================================================