# using transaction data
analysis_date <- lubridate::as_date('2006-12-31')
rfm_order <- rfm_table_order(rfm_data_orders, customer_id, order_date,
revenue, analysis_date)
# bar chart
rfm_bar_chart(rfm_order)
Run the code above in your browser using DataLab