inst/doc/item-seeding-accessibility-and-presentation-fairness.R

In eyeprocess: Harmonize Eye-Tracking, Pupillometry, Biometrics, and Psychometric Process Data

## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", eval = FALSE)
library(eyeprocess)

## -----------------------------------------------------------------------------
# seed <- fit_item_parameter_seed_model(
#   calibrated_items,
#   predictors = c("visual_density", "text_complexity", "word_count", "screen_luminance")
# )
# 
# candidate_predictions <- predict_item_parameter_priors(seed, candidate_items)
# audit_candidate_item_bank(seed, candidate_items)
# plot(seed, candidate_data = candidate_items)

## -----------------------------------------------------------------------------
# a <- audit_presentation_accessibility(person_process_data)
# sim <- simulate_presentation_variants(a)
# plot(a)

## -----------------------------------------------------------------------------
# compare_presentation_fairness(
#   experiment_data,
#   variant = "presentation_version",
#   outcome = "accuracy"
# )