<div>Seu exemplo não é reproduzível,, uma vez que não é possível acessar os dados.</div><br><div>Att</div><br><div class="gmail_quote_attribution">On Aug 19 2019, at 7:51 pm, Edmar Caldas por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:</div><blockquote><div><div class="ydpe53c3733yahoo-style-wrap"><div><div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Boa noite!</font></font></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">estou com um erro no código abaixo e não consigo descobrir o motivo. </font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Já executei esse mesmo código em outra maquina.</font></font></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">versao do R</font></font></div><div><br></div><div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">version.string R version 3.6.1 (2019-07-05)</font></font></div></div><div><br></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">library(readxl)</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Salario <- read_excel("F:/FIAP/R/Excel/Salario.xlsx")</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">View(Salario)  </font></font></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">attach(Salario)</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">install.packages("dplyr")</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">library(dplyr)</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">agregar <-summarise(group_by(Salario, id),</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">                    salario_m = mean(salario_m),</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">                    data_pagamento_min=min(data_pagamento),</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">                    data_pagamento_max=max(data_pagamento),</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">                    contagem =n())</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">agregar</font></font></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">View(agregar)</font></font></div><div><br></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">install.packages("rfm")</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">install.packages("lubridate")</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">library(rfm)</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">library(lubridate)</font></font></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">data_atual <- lubridate::as_date("2019-04-05", tz = "UTC-3")</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">agregar$data_atual <-data_atual</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">attach(agregar)</font></font></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">data_compra <-lubridate::as_date(data_pagamento_max, tz="UTC")</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">agregar$data_compra<-data_compra</font></font></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">attach(agregar)</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">View(agregar)</font></font></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">rfm_result <- rfm_table_order(agregar, id, data_compra, salario_m, data_atual)</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">rfm_result</font></font></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">install.packages("tibble")</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">library(tibble)</font></font></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">rfm<-as.tibble(rfm_result)</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">rfm</font></font></div></div><br></div><div><br></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">erro</font></font></div><div><br></div><div><div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Error: Tibble columns must have consistent lengths, only values of length one are recycled:</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">* Length 0: Requested with `.rows` argument</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">* Length 50: Column `rfm`</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">Call `rlang::last_error()` to see a backtrace</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">In addition: Warning message:</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">`as.tibble()` is deprecated, use `as_tibble()` (but mind the new semantics).</font></font></div><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif">This warning is displayed once per session.</font></font></div></div><br></div><div><br></div><div class="ydpe53c3733signature"><div><font style="font-size:13px"><font style="font-family:"Helvetica Neue", Helvetica, Arial, sans-serif"><span style="color:#0000ff">Edmar</span></font></font></div></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></div></blockquote>