M3total1

# View the M3total data
M3total

# pcbars for M3total data
# input: A data frame containing columns category, case, total
# for forecasts within 95 %
category <- paste("ARIMA_with_horizon =", unique(M3total$horizon))
cases <- M3total$forecasts_within_95
total <- M3total$total_forecast
df1 <- data.frame(category, cases, total)
estimatePercentageErrors(df1)

# pcbars for M3total data
# input: A data frame containing columns category, case, total
# for forecasts within 80 %
category <- paste("ARIMA_with_horizon =", unique(M3total$horizon))
cases <- M3total$forecasts_within_80
total <- M3total$total_forecast
df2 <- data.frame(category, cases, total)
estimatePercentageErrors(df2)

category <- c("forecast within 80%", "forecast within 95%")
cases <- c(sum(M3total$forecasts_within_80), sum(M3total$forecasts_within_95))
total <- sum(M3total$total_forecast)
df3 <- data.frame(category, cases, total)
estimatePercentageErrors(df3, conf.level = 0.8)