# El archivo Excel debe estar en la misma carpeta del script .Rmd
df_raw <- read_excel("Grupo 8.xlsx") %>%
rename(producto = Producto, fecha = fecha_mes, demanda = cant_kg) %>%
mutate(fecha = as.Date(fecha), producto = as.factor(producto), demanda = pmax(demanda, 0)) %>%
arrange(producto, fecha) %>%
drop_na()
| Modelo | MAD | RMSE | MAPE | SMAPE |
|---|---|---|---|---|
| Regresión Lineal | 17254.49 | 21696.40 | 10.75 | 11.33 |
| SES | 43236.24 | 49964.62 | 26.00 | 30.91 |
| SED (Holt) | 19067.69 | 23757.32 | 11.70 | 12.52 |
| Combinado (SES + SED) | 30028.12 | 35816.91 | 17.99 | 20.29 |
Criterio de Selección: Se adopta ** Regresión
Lineal ** por presentar el menor error porcentual absoluto medio (MAPE)
en
simulación.
| Modelo | MAD | RMSE | MAPE | SMAPE |
|---|---|---|---|---|
| Winters Aditivo | 352382.8 | 464784 | 42.61 | 31.87 |
| Winters Multiplicativo | 619504339.6 | 1423427931 | 57169.59 | 157.07 |
| ETS (Auto) | 1097244.2 | 1505052 | 108.12 | 88.86 |
Criterio de Selección: Se adopta ** Winters
Aditivo ** por presentar el menor error porcentual absoluto medio (MAPE)
en
simulación.
| Modelo | MAD | RMSE | MAPE | SMAPE |
|---|---|---|---|---|
| Regresión Lineal | 231130.57 | 272290.3 | 3575.41 | 191.11 |
| SES | 18088.37 | 19594.5 | 385.51 | 91.25 |
| SED (Holt) | 224698.88 | 259923.8 | 3463.68 | 194.50 |
| Combinado (SES + SED) | 104032.28 | 122195.7 | 1557.24 | 188.99 |
Criterio de Selección: Se adopta ** SES ** por
presentar el menor error porcentual absoluto medio (MAPE) en
simulación.
| Modelo | MAD | RMSE | MAPE | SMAPE |
|---|---|---|---|---|
| Winters Aditivo | 277791.1 | 315564.7 | 237.83 | 86.40 |
| Winters Multiplicativo | 1282717.6 | 1996187.5 | 472.83 | 122.75 |
| ETS (Auto) | 399190.1 | 580834.1 | 181.68 | 76.20 |
Criterio de Selección: Se adopta ** ETS (Auto)
** por presentar el menor error porcentual absoluto medio (MAPE) en
simulación.