S&P 500 is a stock market index based on the market capitalization of 500 large companies in the U.S. Go to the FRED Economic Data website for S&P 500 and download the data for just one year. You may choose any one-year window. 1. Using R, create a time series plot for the dataset. Describe the plot. 2. Using R, fit the dataset to linear regression and moving average models. Which model do you think is a better predictive model? Explain why 3. Discuss how you can improve the prediction.After downloading and importing the FRED data for the SP500, here is the actual data plot from R. Please see screenshot below. R R Console BOX 249 2019-08-22 2922.95 6216 250 2019-08-23 2847.11 6240 251 2019-08-26 2878.38 6264 modelIt ) (Intercept) 2. 707e+03 1. 502e+01 180.21