<html><head></head><body><div class="ydpf6a3a50yahoo-style-wrap" style="font-family:bookman old style, new york, times, serif;font-size:16px;"><div><div dir="ltr" data-setdir="false">Obrigado pela ideia Fernando, vou testar aqui. Muitíssimo grato!!!</div><div><br></div><div class="ydpf6a3a50signature"><div style="font-family:Helvetica, Arial, sans-serif;font-size:16px;"><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38508"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38507" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color: inherit;">Diogo Jerônimo</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38429" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color: inherit;">Bacharel em Ciências Estatísticas - ENCE/IBGE</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38308" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color: inherit;">Mestre em Metrologia - PUC-Rio/PósMQI</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38329"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38328" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="ydpcf278505yui_3_16_0_1_1497025264182_38700" style="background-color: inherit;">CONRE: 8514 - SÉRIE A</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38323"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38322" style="line-height:17.12px;color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="ydpcf278505yui_3_16_0_1_1497025264182_38695" style="background-color: inherit;">http://lattes.cnpq.br/8996149312896520</font></span></i><br></div></div></div></div>
<div><br></div><div><br></div>
</div><div id="ydp9e8d58b6yahoo_quoted_7443506818" class="ydp9e8d58b6yahoo_quoted">
<div style="font-family:'Helvetica Neue', Helvetica, Arial, sans-serif;font-size:13px;color:#26282a;">
<div>
Em quarta-feira, 5 de agosto de 2020 15:05:41 BRT, Fernando Souza <nandodesouza@gmail.com> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div id="ydp9e8d58b6yiv9018038727"><div><div>Uma pequena correção para que retorne valores absolutos</div><br clear="none"><div>vetor<-c(19,23,27,29)</div><br clear="none"><div>myf<-function(x){</div><div> </div><div> aux<-c()</div><div> result<-vector(mode="list")</div><div> </div><div> for(i in 1:length(x)-1){</div><div> </div><div> for(j in (i+1):length(x)){</div><div> </div><div> aux[j]<-x[i]-x[j]</div><div> result[[j]]<-aux</div><div> }</div><div> </div><div> </div><div> </div><div> }</div><div> </div><div> return(abs(na.omit(unlist(result))))</div><div>}</div><div>myf(vetor)</div><br clear="none"><br clear="none"><div class="ydp9e8d58b6yiv9018038727yqt3273004697" id="ydp9e8d58b6yiv9018038727yqt16216"><div class="ydp9e8d58b6yiv9018038727gmail_quote_attribution">On Aug 5 2020, at 3:00 pm, Fernando Souza <nandodesouza@gmail.com> wrote:</div><blockquote><div>Uma possível solução</div><br clear="none"><div>vetor<-c(19,23,27,29)</div><br clear="none"><div>myf<-function(x){</div><div> </div><div> aux<-c()</div><div> result<-vector(mode="list")</div><div> </div><div> for(i in 1:length(x)-1){</div><div> </div><div> for(j in (i+1):length(x)){</div><div> </div><div> aux[j]<-x[i]-x[j]</div><div> result[[j]]<-aux</div><div> }</div><div> </div><div> </div><div> </div><div> }</div><div> return(na.omit(unlist(result)))</div><div>}</div><br clear="none"><div>myf(vetor)</div><br clear="none"><div class="ydp9e8d58b6yiv9018038727gmail_quote_attribution">On Aug 5 2020, at 2:53 pm, Cesar Rabak por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:</div><blockquote><div><div><div>Diogo,</div><div><br clear="none"></div><div>Na comunidade <font style="font-family:verdana, sans-serif;"><strong>R</strong></font> temos um ditado que diz mais ou menos o seguinte (tradução livre deste escrivinhador) : « No <font style="font-family:verdana, sans-serif;"><strong>R</strong></font> a pergunta nunca é <em>se</em> mas sim como <em>como</em> algo pode ser feito.»</div><div><br clear="none"></div><div>Pelo teor da sua pergunta você não domina os rudimentos da linguagem R (a minha evidência é o jeito como escreves a definição do vetor exemplo e o resultado desejado).</div><div><br clear="none"></div><div>Você já consultou um tutorial sobre R? Qual{is} abordagem{ns} você já considerou?</div><div><br clear="none"></div><div>--</div><div>Cesar Rabak</div><div><br clear="none"></div></div><br clear="none"><div class="ydp9e8d58b6yiv9018038727gmail_quote"><div class="ydp9e8d58b6yiv9018038727gmail_attr"><div>On Wed, Aug 5, 2020 at 2:25 PM Diogo Jerônimo por (R-br) <<a shape="rect" href="mailto:r-br@listas.c3sl.ufpr.br" title="mailto:r-br@listas.c3sl.ufpr.br" rel="nofollow" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:</div></div><blockquote><div><div><div><font style="font-size:16px;"><font style="font-family:old times, serif;">Boa tarde a todos. Seja por exemplo o seguinte vetor:</font></font></div><div><br clear="none"></div><div><font style="font-size:16px;"><font style="font-family:old times, serif;">x=(19,23,27,29)</font></font></div><div><div><div><br clear="none"></div><div><font style="font-size:16px;"><font style="font-family:old times, serif;">É 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:</font></font></div><div><br clear="none"></div><div><font style="font-size:16px;"><font style="font-family:old times, serif;">vetor=(|19-23|,|19-27|,|19-29|,|23-27|,|23-29|,|27-29|)</font></font></div><div><br clear="none"></div><div><font style="font-size:16px;"><font style="font-family:old times, serif;">Obrigado por qualquer ajuda!!!</font></font></div><div><br clear="none"></div></div></div><div><div><div><font style="font-family:old times, serif;"><font style="font-size:16px;"><font style="font-family:Helvetica, Arial, sans-serif;"><em><span style="color:rgb(0, 0, 191);"><font style="font-size: medium; background-color: inherit;"><font style="font-family:courier, monaco, monospace, sans-serif;">Diogo Jerônimo</font></font></span></em></font></font></font></div><div><font style="font-family:old times, serif;"><font style="font-size:16px;"><font style="font-family:Helvetica, Arial, sans-serif;"><em><span style="color:rgb(0, 0, 191);"><font style="font-size: medium; background-color: inherit;"><font style="font-family:courier, monaco, monospace, sans-serif;">Bacharel em Ciências Estatísticas - ENCE/IBGE</font></font></span></em></font></font></font></div><div><font style="font-family:old times, serif;"><font style="font-size:16px;"><font style="font-family:Helvetica, Arial, sans-serif;"><em><span style="color:rgb(0, 0, 191);"><font style="font-size: medium; background-color: inherit;"><font style="font-family:courier, monaco, monospace, sans-serif;">Mestre em Metrologia - PUC-Rio/PósMQI</font></font></span></em></font></font></font></div><div><font style="font-family:old times, serif;"><font style="font-size:16px;"><font style="font-family:Helvetica, Arial, sans-serif;"><em><span style="color:rgb(0, 0, 191);"><font style="font-size: medium; background-color: inherit;"><font style="font-family:courier, monaco, monospace, sans-serif;">CONRE: 8514 - SÉRIE A</font></font></span></em></font></font></font></div><div><div><font style="font-family:old times, serif;"><font style="font-size:16px;"><font style="font-family:Helvetica, Arial, sans-serif;"><em><span style="color:rgb(0, 0, 191);"><font style="font-size: medium; background-color: inherit;"><font style="font-family:courier, monaco, monospace, sans-serif;"><a shape="rect" href="http://lattes.cnpq.br/8996149312896520" title="http://lattes.cnpq.br/8996149312896520" rel="nofollow" target="_blank">http://lattes.cnpq.br/8996149312896520</a></font></font></span></em></font></font></font></div></div></div></div></div></div><div>_______________________________________________</div><div>R-br mailing list</div><div><a shape="rect" href="mailto:R-br@listas.c3sl.ufpr.br" title="mailto:R-br@listas.c3sl.ufpr.br" rel="nofollow" target="_blank">R-br@listas.c3sl.ufpr.br</a></div><div><a shape="rect" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" title="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a></div><div>Leia o guia de postagem (<a shape="rect" href="http://www.leg.ufpr.br/r-br-guia" title="http://www.leg.ufpr.br/r-br-guia" rel="nofollow" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</div></blockquote></div></div><div>_______________________________________________</div><div>R-br mailing list</div><div>R-br@listas.c3sl.ufpr.br</div><div>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</div><div>Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.</div></blockquote></blockquote></div></div></div></div>
</div>
</div></body></html>