judgmental <- tibble(
Method = c(
"Forecasting by Analogy",
"Scenario Forecasting",
"Sales Force Composite",
"Executive Opinion",
"Customer Intentions Survey"
),
Description = c(
"Finds forecasts using comparable/similar historical products.",
"Long-run planning under uncertainty, producing many estimates.",
"Uses sales teams to forecast demand over territories and aggregates.",
"Uses senior executives to guide forecasts.",
"Surveys potential customers directly about purchase intent, timing, and price sensitivity"
),
Pros = c(
"Uses historical comps to guide forecasts",
"Multiple possible scenarios during encertainty",
"Uses people closest to the customers/products",
"Fast and experienced opinions across business functions",
"Opinions come from the source of revenue (customers)"
),
Cons = c(
"Can bias toward well-perfomring products",
"No single point. More scenarios can stretch data or make scenarios innacurately represents estimate",
"Commissions can guide expectations",
"Hierarchy effect and bias toward performance",
"Intentions can be misguided"
),
`Performed Well` = c(
"COVID-19 forecast using the 1918 Spanish Flu",
"Doctor Strange forecasted 14 mil scenarios",
"Sales reps forecasting long-standing products with strong customer relationships",
"Long-term strategy planning due to experience through regimes",
"Works well when using moderator with no inclination toward either side of the relationship"
),
`Performed Badly` = c(
"Post-COVID rebound prediction due to differing markets and global supply-chain",
"Supply chain planning pre-Covid",
"New product launches since sales rep don't understand customer relatinoship with new products",
"Where the most senior leader speaks first; introduces bias",
"Where close relationships guide discussion. People want and give optomistic answers"
)
)
judgmental |>
kable(
col.names = c("Method", "Description", "Pros", "Cons", "Performed Well", "Performed Badly"),
align = c("l", "l", "l", "l", "l", "l")
) |>
kable_styling(
bootstrap_options = c("striped", "hover", "condensed"),
full_width = TRUE,
font_size = 12
) |>
column_spec(1, bold = TRUE, width = "13%") |>
column_spec(2, width = "17%") |>
column_spec(3, width = "17%") |>
column_spec(4, width = "17%") |>
column_spec(5, width = "18%") |>
column_spec(6, width = "18%")