R/avg_spend.R

In uogss/CLV: Provide CLV for customers

#' calculate the average spend per HH
#' @export
#' @param spend numeric variable
avg_spend <- function(input) {
  avg_input_spend <- aggregate(input$spend, by=list(input$cust), FUN=mean)
  colnames(avg_input_spend)[1] <- "cust"
  colnames(avg_input_spend)[2] <- "spend"
  return(avg_input_spend)
}