# using transaction data
analysis_date <- as.Date('2006-12-31')
rfm_order <- rfm_table_order(rfm_data_orders, customer_id, order_date,
revenue, analysis_date)
# bar chart
rfm_plot_bar_chart(rfm_order)
Run the code above in your browser using DataLab