<div dir="ltr">OK Jerônimo...<div><br></div><div>Para mostrar como o ditado dos erristas é apropriado veja esta solução¹:</div><div><br></div><div><font face="monospace">> res<-NULL</font></div><div>> <font face="monospace">vetor<-c(19,23,27,29)</font></div><div>> <font face="monospace" style="">l <- length(vetor)<br>> for (i in 1:l) {ifelse(length(vetor)>1,res<-c(res,abs(car(vetor)-cdr(vetor))),print(res)); vetor <- cdr(vetor)}<br>[1] 4 8 10 4 6 2</font><br></div><div><br></div><div>Numa implementação minha, só para ter o resultado, as três primeiras linhas seriam uma única c/comandos separados por ';' e eu não usaria o <font face="monospace">ifelse</font> aceitando uma mensagem de erro quando o vetor tivesse esvaziado até um único elemento.</div><div>Ademais, eu <i>aceito</i> que o vetor seja destruído na operação, caso vc precise dele, teria que usar uma cópia (também nada de outro mundo).</div><div><br></div><div>HTH</div><div>--</div><div>Cesar Rabak</div><div>[1] precisa da biblioteca <font face="monospace">lisp</font></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Wed, Aug 5, 2020 at 3:23 PM Diogo Jerônimo <<a href="mailto:diogojose21@yahoo.com.br">diogojose21@yahoo.com.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div style="font-family:"bookman old style","new york",times,serif;font-size:16px"><div><div dir="ltr"><div><div dir="ltr" style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif;font-size:16px">Obrigado pela info Cesar, melhor terminologia na próxima.</div><div dir="ltr" style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif;font-size:16px"><br></div><div dir="ltr" style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif;font-size:16px">Só trouxe para cá depois de quebrar cabeça um dia inteiro. </div><div dir="ltr" style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif;font-size:16px"><br></div><div dir="ltr" style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif;font-size:16px">Obrigado </div></div></div><div><i style="font-family:Helvetica,Arial,sans-serif"><span style="color:rgb(0,0,191);font-size:medium"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color:inherit"><br></font></span></i></div><div><i id="gmail-m_1953898600326825584ydpcf278505yui_3_16_0_1_1497025264182_38508" style="font-family:Helvetica,Arial,sans-serif"><span id="gmail-m_1953898600326825584ydpcf278505yui_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><i id="gmail-m_1953898600326825584ydpcf278505yui_3_16_0_1_1497025264182_38430" style="font-family:Helvetica,Arial,sans-serif"><span id="gmail-m_1953898600326825584ydpcf278505yui_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><i id="gmail-m_1953898600326825584ydpcf278505yui_3_16_0_1_1497025264182_38309" style="font-family:Helvetica,Arial,sans-serif"><span id="gmail-m_1953898600326825584ydpcf278505yui_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><i id="gmail-m_1953898600326825584ydpcf278505yui_3_16_0_1_1497025264182_38329" style="font-family:Helvetica,Arial,sans-serif"><span id="gmail-m_1953898600326825584ydpcf278505yui_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="gmail-m_1953898600326825584ydpcf278505yui_3_16_0_1_1497025264182_38700" style="background-color:inherit">CONRE: 8514 - SÉRIE A</font></span></i></div><div><i id="gmail-m_1953898600326825584ydpcf278505yui_3_16_0_1_1497025264182_38323" style="font-family:Helvetica,Arial,sans-serif"><span id="gmail-m_1953898600326825584ydpcf278505yui_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="gmail-m_1953898600326825584ydpcf278505yui_3_16_0_1_1497025264182_38695" style="background-color:inherit"><a href="http://lattes.cnpq.br/8996149312896520" target="_blank">http://lattes.cnpq.br/8996149312896520</a></font></span></i><br></div></div>
<div><br></div><div><br></div>
</div><div id="gmail-m_1953898600326825584ydpb97ed451yahoo_quoted_7007461531">
<div style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px;color:rgb(38,40,42)">
<div>
Em quarta-feira, 5 de agosto de 2020 14:53:45 BRT, Cesar Rabak <<a href="mailto:cesar.rabak@gmail.com" target="_blank">cesar.rabak@gmail.com</a>> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div id="gmail-m_1953898600326825584ydpb97ed451yiv5253136984"><div><div dir="ltr"><div dir="ltr">Diogo,<div><br clear="none"></div><div>Na comunidade <font face="verdana, sans-serif"><b>R</b></font> temos um ditado que diz mais ou menos o seguinte (tradução livre deste escrivinhador) : « No
<font face="verdana, sans-serif"><b>R</b></font> a pergunta nunca é <i>se</i> mas sim como <i>como</i> 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><div id="gmail-m_1953898600326825584ydpb97ed451yiv5253136984yqt64457"><div dir="ltr">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" rel="nofollow" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:<br clear="none"></div><blockquote style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div style="font-family:"old times",serif;font-size:16px"><div dir="ltr">Boa tarde a todos. Seja por exemplo o seguinte vetor:</div><div dir="ltr"><br clear="none"></div><div dir="ltr">x=(19,23,27,29)</div><div dir="ltr"><div><div dir="ltr"><br clear="none"></div><div dir="ltr">É 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:</div><div dir="ltr"><br clear="none"></div><div dir="ltr">vetor=(|19-23|,<span><span style="color:rgb(0,0,0);font-family:"old times",serif;font-size:16px">|19-27|,</span></span><span><span style="color:rgb(0,0,0);font-family:"old times",serif;font-size:16px">|19-29|,</span></span><span><span style="color:rgb(0,0,0);font-family:"old times",serif;font-size:16px">|23-27|,<span><span style="color:rgb(0,0,0);font-family:"old times",serif;font-size:16px">|23-29|,<span><span style="color:rgb(0,0,0);font-family:"old times",serif;font-size:16px">|27-29|)</span></span></span></span></span></span></div><div dir="ltr"><span><span style="color:rgb(0,0,0);font-family:"old times",serif;font-size:16px"><span><span style="color:rgb(0,0,0);font-family:"old times",serif;font-size:16px"><span><span style="color:rgb(0,0,0);font-family:"old times",serif;font-size:16px"><br clear="none"></span></span></span></span></span></span></div><div dir="ltr"><span><span style="color:rgb(0,0,0);font-family:"old times",serif;font-size:16px"><span><span style="color:rgb(0,0,0);font-family:"old times",serif;font-size:16px"><span><span style="color:rgb(0,0,0);font-family:"old times",serif;font-size:16px">Obrigado por qualquer ajuda!!!</span></span></span></span></span></span></div><div dir="ltr"><br clear="none"></div></div></div><div><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="gmail-m_1953898600326825584ydpb97ed451yiv5253136984gmail-m_3482108965387240979ydpcf278505yui_3_16_0_1_1497025264182_38508"><span id="gmail-m_1953898600326825584ydpb97ed451yiv5253136984gmail-m_3482108965387240979ydpcf278505yui_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="gmail-m_1953898600326825584ydpb97ed451yiv5253136984gmail-m_3482108965387240979ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="gmail-m_1953898600326825584ydpb97ed451yiv5253136984gmail-m_3482108965387240979ydpcf278505yui_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="gmail-m_1953898600326825584ydpb97ed451yiv5253136984gmail-m_3482108965387240979ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="gmail-m_1953898600326825584ydpb97ed451yiv5253136984gmail-m_3482108965387240979ydpcf278505yui_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="gmail-m_1953898600326825584ydpb97ed451yiv5253136984gmail-m_3482108965387240979ydpcf278505yui_3_16_0_1_1497025264182_38329"><span id="gmail-m_1953898600326825584ydpb97ed451yiv5253136984gmail-m_3482108965387240979ydpcf278505yui_3_16_0_1_1497025264182_38328" style="color:rgb(0,0,191);font-size:medium"><font id="gmail-m_1953898600326825584ydpb97ed451yiv5253136984gmail-m_3482108965387240979ydpcf278505yui_3_16_0_1_1497025264182_38700" face="Courier New, courier, monaco, monospace, sans-serif" 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="gmail-m_1953898600326825584ydpb97ed451yiv5253136984gmail-m_3482108965387240979ydpcf278505yui_3_16_0_1_1497025264182_38323"><span id="gmail-m_1953898600326825584ydpb97ed451yiv5253136984gmail-m_3482108965387240979ydpcf278505yui_3_16_0_1_1497025264182_38322" style="line-height:17.12px;color:rgb(0,0,191);font-size:medium"><font id="gmail-m_1953898600326825584ydpb97ed451yiv5253136984gmail-m_3482108965387240979ydpcf278505yui_3_16_0_1_1497025264182_38695" face="Courier New, courier, monaco, monospace, sans-serif" style="background-color:inherit"><a shape="rect" href="http://lattes.cnpq.br/8996149312896520" rel="nofollow" target="_blank">http://lattes.cnpq.br/8996149312896520</a></font></span></i><br clear="none"></div></div></div></div></div>_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a shape="rect" href="mailto:R-br@listas.c3sl.ufpr.br" rel="nofollow" target="_blank">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a shape="rect" href="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><br clear="none">
Leia o guia de postagem (<a shape="rect" href="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.<br clear="none">
</blockquote></div></div></div></div></div></div>
</div>
</div></div></blockquote></div>