[R-br] Diferença de todos os valores

[Diogo Jerônimo]

Prezados Daniel, César e Fernando, agradeço pela atenção!!! Baseado nas dicas de vocês, já resolvi meu problema!!! 
Muito obrigado!!!!
Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em Metrologia - PUC-Rio/PósMQICONRE: 8514 - SÉRIE Ahttp://lattes.cnpq.br/8996149312896520 

    Em quarta-feira, 5 de agosto de 2020 23:04:30 BRT, Daniel Guimarães Tiezzi <dtiezzi em usp.br> escreveu:  
 
 Boa noite Jeronimo
Acredito que você pode criar uma matrix e subtrair a matrix transversa do vetor.
a <- c(19,23,27,29)m <- matrix(rep(a, length(a)), length(a))rm <- t(a - t(m))
 A parte triangular da matrix resultante tem os seus valores. Pode usar a função lower.tri() pra extrair seus valores 
abs(rm[lower.tri(rm, diag = FALSE)])

Veja se funciona
Daniel
----------------------------------------------------------------
Daniel Tiezzi, MD, PhDOncologia / Mastologia
Professor Associado - Livre Docente
Departamento de Ginecologia e Obstetrícia
Setor de Mastologia e Oncologia Ginecológica
Faculdade de Medicina de Ribeirão Preto - USP
Tel.: 16 3602-2488
e-mail: dtiezzi em usp.br


On 5 Aug 2020, at 14:22, Diogo Jerônimo por (R-br) <r-br em listas.c3sl.ufpr.br> wrote:
Boa tarde a todos. Seja por exemplo o seguinte vetor:
x=(19,23,27,29)
É possível se obter no R um vetor com TODAS as diferenças absolutas entre TODOS os pares de valores combinados de um vetor? Ou seja:
vetor=(|19-23|,|19-27|,|19-29|,|23-27|,|23-29|,|27-29|)
Obrigado por qualquer ajuda!!!
Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em Metrologia - PUC-Rio/PósMQICONRE: 8514 - SÉRIE Ahttp://lattes.cnpq.br/8996149312896520
_______________________________________________
R-br mailing list
R-br em 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.


  
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200807/9b706276/attachment.html>