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

[Cesar Rabak]

Você leu a nota de rodapé?


On Wed, Aug 5, 2020 at 8:59 PM Mauro Sznelwar por (R-br) <
r-br em listas.c3sl.ufpr.br> wrote:

> Não consegui rodar esta rotina:
> > res<-NULL
> >  vetor<-c(19,23,27,29)
> >  l <- length(vetor)
> > for (i in 1:l)
> {ifelse(length(vetor)>1,res<-c(res,abs(car(vetor)-cdr(vetor))),print(res));
> vetor <- cdr(vetor)}
> Error in car(vetor) : não foi possível encontrar a função "car"
>
>
>
> OK Jerônimo...
>
> Para mostrar como o ditado dos erristas é apropriado veja esta solução¹:
>
> > res<-NULL
> >  vetor<-c(19,23,27,29)
> >  l <- length(vetor)
> > for (i in 1:l)
> {ifelse(length(vetor)>1,res<-c(res,abs(car(vetor)-cdr(vetor))),print(res));
> vetor <- cdr(vetor)}
> [1]  4  8 10  4  6  2
>
> 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
> ifelse aceitando uma mensagem de erro quando o vetor tivesse esvaziado
> até um único elemento.
> Ademais, eu *aceito* 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).
>
> HTH
> --
> Cesar Rabak
> [1] precisa da biblioteca lisp
>
> On Wed, Aug 5, 2020 at 3:23 PM Diogo Jerônimo <diogojose21 em yahoo.com.br
> <http://../../../undefined//compose?to=diogojose21@yahoo.com.br>> wrote:
>
>> Obrigado pela info Cesar, melhor terminologia na próxima.
>>
>> Só trouxe para cá depois de quebrar cabeça um dia inteiro.
>>
>> Obrigado
>>
>> *Diogo Jerônimo*
>> *Bacharel em Ciências Estatísticas - ENCE/IBGE*
>> *Mestre em Metrologia - PUC-Rio/PósMQI*
>> *CONRE: 8514 - SÉRIE A*
>> *http://lattes.cnpq.br/8996149312896520
>> <http://lattes.cnpq.br/8996149312896520>*
>>
>>
>> Em quarta-feira, 5 de agosto de 2020 14:53:45 BRT, Cesar Rabak <
>> cesar.rabak em gmail.com
>> <http://../../../undefined//compose?to=cesar.rabak@gmail.com>> escreveu:
>>
>>
>> Diogo,
>>
>> Na comunidade *R* temos um ditado que diz mais ou menos o seguinte
>> (tradução livre deste escrivinhador) : « No *R* a pergunta nunca é *se* mas
>> sim como *como* algo pode ser feito.»
>>
>> 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).
>>
>> Você já consultou um tutorial sobre R? Qual{is} abordagem{ns} você já
>> considerou?
>>
>> --
>> Cesar Rabak
>>
>>
>> On Wed, Aug 5, 2020 at 2:25 PM Diogo Jerônimo por (R-br) <
>> r-br em listas.c3sl.ufpr.br
>> <http://../../../undefined//compose?to=r-br@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ônimo*
>> *Bacharel em Ciências Estatísticas - ENCE/IBGE*
>> *Mestre em Metrologia - PUC-Rio/PósMQI*
>> *CONRE: 8514 - SÉRIE A*
>> *http://lattes.cnpq.br/8996149312896520
>> <http://lattes.cnpq.br/8996149312896520>*
>> _______________________________________________
>> R-br mailing list
>> R-br em listas.c3sl.ufpr.br
>> <http://../../../undefined//compose?to=R-br@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.
>>
>> _______________________________________________
> 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.
>
> _______________________________________________
> 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/20200805/7ff1976b/attachment.html>