please use r

1) Consider the regression involving the cardiac mortality time series that we studied in class. Note that the cardiac mortality time series data are in the mobject in the Wpackage. Type library {gm-gag); data {m ,- print (pm in Rto see the data set. Type temp = Wmean {W # center temperature temp2 = temp"2 trend = time {m # time to obtain the centered temperature time series, the squared centered temperature data, and the time data. Type print (part) to see the Pollution (particulate) time series. In class, we considered the regression model with mas the response, and temp, temp2 , pg EL: antheJime trend as predictors. Consider adding the particulate count four weeks prior, denoted Pi 4, as another predictor. That 1s, add the lag4 particulate count to the model. The R code: W: W(m temp, tempZ trend part partL4=lag {part, -4) ) may be useful. Write the equation of the estimated regression model you have t. Based on AIC, is this model better than the model we t in class? How about based on BIC? Clearly explain your