<html><head></head><body><div class="ydpe53c3733yahoo-style-wrap" style="font-family: Helvetica Neue, Helvetica, Arial, sans-serif; font-size: 13px;"><div dir="ltr" data-setdir="false"><span></span><div><div dir="ltr" data-setdir="false">Boa noite!</div><div dir="ltr" data-setdir="false"><br></div><div dir="ltr" data-setdir="false">estou com um erro no código abaixo e não consigo descobrir o motivo. </div><div dir="ltr" data-setdir="false">Já executei esse mesmo código em outra maquina.</div><div><br></div><div dir="ltr" data-setdir="false">versao do R</div><div dir="ltr" data-setdir="false"><br></div><div dir="ltr" data-setdir="false"><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" data-setdir="false"><br></div><div dir="ltr" data-setdir="false">erro</div><div dir="ltr" data-setdir="false"><br></div><div dir="ltr" data-setdir="false"><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="ydpe53c3733signature"><div><font color="#0000ff">Edmar</font></div></div></div></body></html>