Table[ListLinePlot[ MovingAverage[FinancialData["GE", "Jan. 1, 2000", "Value"], p], Filling -> Axis], {p, {1, 10, 30, 100}}]