Error_Loess

head(M3Year_fit)

# for Y1-yearly time series data
# for method- HOLT
data <- subset(M3Year_fit, series_id == "Y1" & method == "HOLT")
error <- abs(data$actual - data$forecast)
fitted_actual <- data$fitted_actual
plot(error~fitted_actual)

# for Q1-quatertly time series data
# for method- HOLT
head(M3Quart_fit)

data <- subset(M3Quart_fit, series_id == "Q1" & method == "HOLT")
error <- abs(data$actual - data$forecast)
fitted_actual <- data$fitted_actual
plot(error~fitted_actual)

# for M1-monthly time series data
# for method- HOLT
head(M3Month_fit)

data <- subset(M3Month_fit, series_id == "M1" & method == "HOLT")
error <- abs(data$actual - data$forecast)
fitted_actual <- data$fitted_actual
plot(error~fitted_actual)

# for all of timeseries of monthy data set
# for method: HOLT
# for horizon = 1
data <- subset(M3Month_fit,method == "HOLT" & horizon == 1)
error <- abs(data$actual - data$forecast)
fitted_actual <- data$fitted_actual
plot(error~fitted_actual)
loess <- loess(error~fitted_actual)
lines(loess$fitted~fitted_actual, col = "red") # add the regression lines

# for all of timeseries of monthy data set
# for method: HOLT
# for horizon = 2
data <- subset(M3Month_fit,method == "HOLT" & horizon == 2)
error <- abs(data$actual - data$forecast)
fitted_actual <- data$fitted_actual
plot(error~fitted_actual)
loess <- loess(error~fitted_actual)
lines(loess$fitted~fitted_actual, col = "red") # add the regression lines

# for all of timeseries of monthy data set
# for method: SINGLE
# for horizon = 1
data <- subset(M3Month_fit,method == "SINGLE" & horizon == 1)
error <- abs(data$actual - data$forecast)
fitted_actual <- data$fitted_actual
plot(error~fitted_actual)
loess <- loess(error~fitted_actual)
lines(loess$fitted~fitted_actual, col = "red") # add the regression lines

# for all of timeseries of monthy data set
# for method: SINGLE
# for horizon = 2
data <- subset(M3Month_fit,method == "SINGLE" & horizon == 2)
error <- abs(data$actual - data$forecast)
fitted_actual <- data$fitted_actual
plot(error~fitted_actual)
loess <- loess(error~fitted_actual)
lines(loess$fitted~fitted_actual, col = "red") # add the regression lines

# for all of timeseries of monthy data set
# for method: ROBUST-Trend
# for horizon = 1
data <- subset(M3Month_fit,method == "ROBUST-Trend" & horizon == 1)
error <- abs(data$actual - data$forecast)
fitted_actual <- data$fitted_actual
plot(error~fitted_actual)
loess <- loess(error~fitted_actual)
lines(loess$fitted~fitted_actual, col = "red") # add the regression lines

# for all of timeseries of monthy data set
# for method: ROBUST-Trend
# for horizon = 2
data <- subset(M3Month_fit,method == "ROBUST-Trend" & horizon == 2)
error <- abs(data$actual - data$forecast)
fitted_actual <- data$fitted_actual
plot(error~fitted_actual)
loess <- loess(error~fitted_actual)
lines(loess$fitted~fitted_actual, col = "red") # add the regression lines