<div dir="ltr"><div dir="ltr"><div>Edmar,</div><div><br></div><div>Conseguiu resolver o problema? O seu R e os os pacotes estão atualizados para as versões mais recentes?</div><div><br></div><div>Sugiro que você vá rodando o script por partes até identificar em que momento aparece a mensagem de erro e buscar a solução a partir daí.</div><div><br></div><div>Se os pacotes já estiverem instalados, também não precisa instalar tudo novamente (<span style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px">install.packages("nome-do-pacote")) toda vez que rodar o script. Basta carregá-los com library("nome-do-pacote"). </span></div><div><span style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px"><br></span></div><div><span style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px">Ao consultar a documentação do pacote rfm, vi que a função </span><span style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px"> </span><span style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px">rfm_table_order() já gera um tibble como resultado. Então, no seu código, não entendi qual </span><span style="font-size:13px;font-family:"Helvetica Neue",Helvetica,Arial,sans-serif">o motivo de utilizar `</span><span style="font-size:13px;font-family:"Helvetica Neue",Helvetica,Arial,sans-serif">rfm <- as.tibble(rfm_result)` em seguida. Dito isso, acredito que `</span><span style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px">rfm_result</span><span style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px">` já deve entregar o que você está esperando.</span></div><div><span style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px"><br></span></div><div><span style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px">Espero ter ajudado.</span></div><div><br></div><br clear="all"><div><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div dir="ltr"><div><i><font face="arial, helvetica, sans-serif">Enoch Sousa Filho</font></i></div><div dir="ltr"><font size="1"><i><font face="arial, helvetica, sans-serif">* <a href="http://enochfilho.net/" target="_blank">http://EnochFilho.net</a> </font></i><i><font face="arial, helvetica, sans-serif"><br><br></font></i></font></div></div></div></div></div><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em seg, 19 de ago de 2019 às 19:52, Edmar Caldas por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<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 class="gmail-m_-2550854784970996043ydpe53c3733yahoo-style-wrap" style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px"><div dir="ltr"><span></span><div><div dir="ltr">Boa noite!</div><div dir="ltr"><br></div><div dir="ltr">estou com um erro no código abaixo e não consigo descobrir o motivo. </div><div dir="ltr">Já executei esse mesmo código em outra maquina.</div><div><br></div><div dir="ltr">versao do R</div><div dir="ltr"><br></div><div dir="ltr"><span>version.string R version 3.6.1 (2019-07-05)</span><br></div><div><br></div><div><br></div><div>library(readxl)</div><div>Salario <- read_excel("F:/FIAP/R/Excel/Salario.xlsx")</div><div>View(Salario) </div><div><br></div><div>attach(Salario)</div><div>install.packages("dplyr")</div><div>library(dplyr)</div><div>agregar <-summarise(group_by(Salario, id),</div><div> salario_m = mean(salario_m),</div><div> data_pagamento_min=min(data_pagamento),</div><div> data_pagamento_max=max(data_pagamento),</div><div> contagem =n())</div><div>agregar</div><div><br></div><div>View(agregar)</div><div><br></div><div><br></div><div>install.packages("rfm")</div><div>install.packages("lubridate")</div><div>library(rfm)</div><div>library(lubridate)</div><div><br></div><div>data_atual <- lubridate::as_date("2019-04-05", tz = "UTC-3")</div><div>agregar$data_atual <-data_atual</div><div>attach(agregar)</div><div><br></div><div>data_compra <-lubridate::as_date(data_pagamento_max, tz="UTC")</div><div>agregar$data_compra<-data_compra</div><div><br></div><div>attach(agregar)</div><div>View(agregar)</div><div><br></div><div>rfm_result <- rfm_table_order(agregar, id, data_compra, salario_m, data_atual)</div><div>rfm_result</div><div><br></div><div>install.packages("tibble")</div><div>library(tibble)</div><div><br></div><div>rfm<-as.tibble(rfm_result)</div><div>rfm</div></div><br></div><div dir="ltr"><br></div><div dir="ltr">erro</div><div dir="ltr"><br></div><div dir="ltr"><div><div>Error: Tibble columns must have consistent lengths, only values of length one are recycled:</div><div>* Length 0: Requested with `.rows` argument</div><div>* Length 50: Column `rfm`</div><div>Call `rlang::last_error()` to see a backtrace</div><div>In addition: Warning message:</div><div>`as.tibble()` is deprecated, use `as_tibble()` (but mind the new semantics).</div><div>This warning is displayed once per session.</div></div><br></div><div><br></div><div class="gmail-m_-2550854784970996043ydpe53c3733signature"><div><font color="#0000ff">Edmar</font></div></div></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div></div>