Answer to Question #86558 in Statistics and Probability for Anand

Question

Plot the following data about demand for an item. Find the moving averages by
taking n = 3. Use these to forecast next two months’ demand.

Month 1 2 3 4 5 6 7 8 9 10 11 12
Demand 46 56 54 43 57 56 67 62 50 56 47 56

Answer 1

In[1]:= Month = {1,2,3,4,5,6,7,8,9,10,11,12}
Out[1]= {1,2,3,4,5,6,7,8,9,10,11,12}
In[2]:= Demand = {46,56,54,43,57,56,67,62,50,56,47,56}
Out[2]= {46,56,54,43,57,56,67,62,50,56,47,56}
In[7]:= ListLinePlot[Demand, PlotMarkers->Automatic]
Out[7]= (* see image *)
In[11]:= SMA = N[MovingAverage[Demand,3]]
Out[11]= {52.,51.,51.3333,52.,60.,61.6667,59.6667,56.,51.,53.}
In[16]:= forecast13=SMA[[10]]
Out[16]= 53.
In[17]:= forecast14 = (SMA[[9]]+SMA[[8]]+forecast13)/3
Out[17]= 53.3333