View source: R/AzzortiAnalysis.R
1 | gen_q_besty(df_base, campana)
|
df_base |
The data must be constituted as follows: |
1) CODI_CAMP: Sales campaign (ej. 201718..201909)
2) NOMB_LINE: Line of the SKU (ej. "JO JOYERIA")
3) CODI_VENT: Sales code SKU (ej. 123456)
4) DESCRIPCION: Name of the SKU.
5) REAL: Real Demand SKU.
7) Q_RG3: Traditional forecast for the SKU.
8) Q_MKT: Marketing area estimate.
9...) Comparative Models (ej. "Q_20", "Q_30")
campana |
Selected campaign |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | ## simulated data
DF_TOTAL <- data.frame(CODI_CAMP = 202004,
NOMB_LINE = "RE ROPA EXTERIOR",
CODI_VENT = ceiling(runif(100,100000,999999)),
DESCRIPCION = paste0("P",c(1:100)),
REAL = 1000+(1:100)*10,
Q_RG3 = abs(1000+(1:100)*10 + rnorm(100,300,800)),
Q_MKT = abs(1000+(1:100)*10 + rnorm(100,100,700)),
Q_30 = abs(1000+(1:100)*10 + rnorm(100,400,700)),
Q_50 = abs(1000+(1:100)*10 + rnorm(100,450,900)),
Q_70 = abs(1000+(1:100)*10 + rnorm(100,700,900))
)
#BESTY
DF_TOTAL<- gen_q_besty(DF_TOTAL)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.