easyRFM_MeasureCamp.R

## R setup (https://github.com/hoxo-m/easyRFM)
install.packages("devtools") # if you have not installed "devtools" package
devtools::install_github("hoxo-m/easyRFM")
library(easyRFM)
## setwd("~/Desktop")

## Load / View Data
data <- rfm_generate_data(30000, begin="2014-01-01", end="2015-12-31", seed=123)
summary(data$payment)

## Calculate RFM
RFM <- rfm_auto(data, breaks=list(r=7, f=7, m=7))

## Review Results
RFM$breaks
RFM$classes
RFM$get_table("RF")

## Export Result
write.csv(RFM$rfm, file = "rfm.csv", row.names = FALSE)