inst/examples/0.10/16-m3-null-redundant-pupil.R

null <- simulate_multimodal_m3(n_person = 50, n_item = 8, pupil_signal = "null", seed = 1)
redundant <- simulate_multimodal_m3(n_person = 50, n_item = 8, pupil_signal = "redundant", seed = 2)
print(audit_multimodal_m3_identifiability(null))
print(audit_multimodal_m3_identifiability(redundant))
plot(null, type = "pupil_truth")
plot(redundant, type = "pupil_truth")

Try the eyeprocess package in your browser

Any scripts or data that you put into this service are public.

eyeprocess documentation built on Sept. 28, 2026, 5:08 p.m.