Create 2012b_Q1profit.R