---
title: "Negative Controls and State-Count Sensitivity"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Negative Controls and State-Count Sensitivity}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(eyeprocess)
```

A credible state model should weaken when temporal structure is destroyed or when apparent states are generated only by nuisance/device structure.

```{r}
sim <- simulate_multimodal_m4(n_person = 30, n_item = 8, seed = 20260820)
controls <- multimodal_m4_negative_controls(sim, seed = 20260821)
controls
sensitivity <- multimodal_m4_sensitivity(sim, n_states = 1:3)
sensitivity
```

Neither K nor substantive state meaning is selected automatically.