validate_result <- bid_interpret(
central_question = "How can we improve delivery efficiency?",
data_story = list(
hook = "Too many delays",
context = "Excessive shipments",
tension = "User frustration",
resolution = "Increase delivery channels"
)
) |>
bid_notice(
problem = "Issue with dropdown menus",
evidence = "User testing indicated delays"
) |>
bid_anticipate(
bias_mitigations = list(
anchoring = "Provide reference points",
framing = "Use gain-framed messaging"
)
) |>
bid_structure() |>
bid_validate(
include_exp_design = FALSE,
include_telemetry = TRUE,
include_empower_tools = TRUE
)
summary(validate_result)
Run the code above in your browser using DataLab