inst/examples/0.10/17-m3-missingness-device-stress.R

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

for (mechanism in c("mcar", "quality", "gaze", "ability", "device")) {
  sim <- simulate_multimodal_m3(n_person = 60, n_item = 10, pupil_missingness = mechanism, seed = 100 + match(mechanism, c("mcar","quality","gaze","ability","device")))
  audit <- audit_multimodal_m3_identifiability(sim)
  cat("\n", mechanism, ": pupil missing=", sprintf("%.3f", audit$pupil$missing_fraction), "\n", sep = "")
}