rfm_score <- rfm_table_customer(data = df_rfm,customer_id = Customer, n_transactions =Freq_order,recency_days = Recency_days, total_revenue = Total_revenue, analysis_date = analysis_date, recency_bins = 4,frequency_bins =4, monetary_bins = 4)