## Question 1:
## Mean Absolute Error (MAE): 3.8
## Mean Squared Error (MSE): 16.2
## Mean Absolute Percentage Error (MAPE): 27.55464 %
## Forecast for Week 7: 14

## Cumulative Averages:
##  [1] 240.0000 296.0000 274.0000 270.5000 272.4000 280.6667 272.0000 276.7500
##  [9] 272.6667 276.4000 273.0909
## Question 2:
## MSE for Moving Average: 996.8
## MSE for Exponential Smoothing: 2377.615
## MSE for Naive Method: 5799.636
## Forecast for Next Period (Naive): 230
## Better Method: Moving Average
## Warning: package 'readxl' was built under R version 4.4.2

## Question 4:
## Linear Trend Equation:  6.7  +  -0.13 *Period
## Question 5:
## Forecast for Period 25 (2024): 3.45

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.