Using R studio, provide the code.

3.1 The following values represent a cubic trend pattern mixed With some randomness. Apply a single 3-period moving average, a single 5period moving average, a Single 7period moving average, a double 3 X 3 moving average, and a double 5 X 5 moving average. Which type of moving average seems most appropriate to you in identifying the cubic pattern of the data? Period Shipments Period Shipments 1 42 9 180 2 69 10 204 3 100 11 228 4 115 12 247 5 132 13 291 6 141 14 337 7 154 15 391 8 171