q.st

ExpensePlot new
	x: #key ;
	y: #value;
	data: ((self firstMonth to: self lastMonth) collect: [:i | i -> (self month: i) sum ]);
	plot.


((self firstMonth to: self lastMonth) collect: [:i |  (self month: i) totalFood ]) average.

((self firstMonth to: self lastMonth) collect: [:i |  (self month: i) totalHousingExpense ]) average.

((self firstMonth to: self lastMonth) collect: [:i |  (self month: i) totalMedical ]) average.



((self firstMonth to: self lastMonth) collect: [:i |  (self month: i) totalEntertainment ]) average.


((self firstMonth to: self lastMonth) collect: [:i |  ((self month: i) ) sum ]) average.