interpret_stage <- bid_interpret(
central_question = "How can we improve selection efficiency?",
data_story = list(
hook = "Too many options",
context = "Excessive choices",
tension = "User frustration",
resolution = "Simplify menu"
)
)
notice_stage <- bid_notice(
previous_stage = interpret_stage,
problem = "Issue with dropdown menus",
evidence = "User testing indicated delays"
)
structure_info <- bid_structure(previous_stage = notice_stage)
# Let the function suggest bias mitigations based on previous stages
bid_anticipate(previous_stage = structure_info)
# with accessibility included (default) and custom bias mitigations
anticipate_result <- bid_anticipate(
previous_stage = structure_info,
bias_mitigations = list(
anchoring = "Use context-aware references",
framing = "Toggle between positive and negative framing"
),
include_accessibility = TRUE
)
summary(anticipate_result)
Run the code above in your browser using DataLab