R/CADF_to_btyd_pareto_nbd.R

In CADF: Customer Analytics Data Formatting

#' @title CADF to btyd pareto nbd model
#' @description
#' Converts a CADF dataset to a dataset for btyd pareto nbd modeling
#' 
#' @export CADF_to_btyd_pareto_nbd
#' @param cadf.data CADF-formatted dataset
CADF_to_btyd_pareto_nbd <- function(cadf.data) {
  #repeat purchase only
  dta <- lapply(cadf.data, function(x) tail(x$data, 1))
  dta <- do.call(rbind, dta)
  dta <- dta[c("x", "t.x", "T.cal")]
  rownames(dta) <- NULL
  dta
}