inst/examples/0.11/06-m4-state-diagnostics.R

sim <- simulate_multimodal_m4(n_person = 30L, n_item = 8L, seed = 20260820L)
states <- multimodal_m4_state_diagnostics(sim)
stopifnot(inherits(states, "eye_multimodal_m4_states"), abs(sum(states$occupancy$mean_probability) - 1) < 1e-8)
print(states)

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.