1.Use the Q10 dataframe. Consider three standard multiple linear regression models predicting Sales from both predictors and no interaction (i. e., ignoring the time series nature of the data): one with a linear trend, one with a quadratic trend, and one with a cubic trend. In the model with lowest of the three AICs, ( Just Write the code for RStudio)

2.Reconsider your model and data from Q10. Now impose an autoregressive model on the residuals. In other words, consider three additional models predicting Sales from Quarter and Month (no interactions but with whichever kind of trend was appropriate in Q10) with an autoregressive model for the residuals of lag 1, lag 2, and lag 3.Note: Quarter is a categorical variable, independent of the trend, so do not use poly() on it.
In the model with lowest of the four AICs, report the STANDARD ERROR of the difference in average sales between First Quarter and Third Quarter. Note: this requires installation and loading of the library nlme. So you'll have to do install. packages('nlme') then library(nlme) (Just Write the code for RStudio)

dataframe 10 is in the regclass of RStudio 's packages