Load or define your data here

your_data <- data.frame( pmt_end = c(1:71, 72:100), total_hhs = c(1434, 305, 434, 547, 840, 1012, 1497, 2019, 3180, 4483, 6377, 9093, 12472, 18782, 28097, 39436, 51643, 73842, 105102, 136492, 180282, 230486, 291474, 359027, 429327, 516775, 618413, 657919, 741955, 829479, 815467, 849647, 777758, 807418, 798934, 792718, 790286, 799384, 792478, 765020, 725294, 710528, 652244, 590267, 546281, 487305, 431991, 376354, 342685, 292328, 251712, 218441, 191129, 167965, 142075, 118362, 104073, 91121, 80497, 69585, 62072, 55482, 52438, 47238, 43550, 38346, 36218, 35006, 36007, 28502, 23735, 22651, 18401, 16151, 13780, 10550, 9090, 8275, 6386, 4586, 4527, 3317, 2737, 1528, 1114, 736, 734, 341, 254, 374, 144, 54, 49, 24, 16, 12, 12, 14, 9, 172), Accumulated_Households = c(1434, 1739, 2173, 2720, 3560, 4572, 6069, 8088, 11268, 15751, 22128, 31221, 43693, 62475, 90572, 130008, 181651, 255493, 360595, 497087, 677369, 907855, 1199329, 1558356, 1957683, 2504458, 3122871, 3780790, 4522745, 5352224, 6167691, 7017338, 7795096, 8602514, 9401448, 10194166, 10984452, 11783836, 12576314, 13341334, 14066628, 14777156, 15429400, 16019667, 16565948, 17053253, 17485244, 17861598, 18204283, 18496611, 1848323, 18966764, 18966764, 19157893, 19325858, 19325613, 19316643, 19315671, 19315196, 19315323, 19315697, 19315841, 19315895, 19315944, 19315968, 19315984, 19315996, 19316008, 19316022, 19316031, 193160203, rep(0, 29) ) )

Specify the benefit amount (replace this with your actual benefit amount or variable)

benefit_amount <- 1000 # Your code for creating the summary table summary_table <- data.frame( Score_Cut_off = 50, # Change this to your desired score cut-off Accumulated_Households = sum(your_data\(Accumulated_Households), Benefit_Size = benefit_amount, Annual_Budget = benefit_amount * 4 * sum(your_data\)Accumulated_Households) )