data <- matrix(c("08Q1",    "08Q2", "08Q3", "08Q4", "09Q1", "09Q2", "09Q3", "09Q4", "10Q1", "10Q2", "10Q3", "10Q4", "11Q1", "11Q2", "11Q3", "11Q4", "12Q1", "12Q2", "12Q3", "12Q4", "13Q1", "13Q2", "13Q3", "13Q4", "14Q1", "14Q2", "14Q3", "14Q4", 42276697.62,    47076334.07,    63256116.91,    65590858.1, 31894750.53,    44051289.07,    43240372.01,    78599947.68,    53580697.84,    58358231.42,    62449936.27,    105183185.7,    75073116.79,    76785853.65,    85386730.46,    120665293,  75261413.75,    79689757.7, 84155668.45,    145212040,  91050406.6, 85376291.1, 98682147.97,    128723263.1,    68248467.5, 119022600.7,    71264936.93,    144658584.9),ncol=2,byrow=FALSE)