CAT precision stopping rule — morie

Computes the provisional standard error of the ability estimate from the administered 4PL items (catR Eqs. 1, 3, 4, 6) and reports whether the precision criterion se <= se_target is met, i.e. the standard-error stopping rule of computerized adaptive testing.

Usage

morie_catstop(items, theta, se_target, estimator = "ML", prior_var = 1)

Arguments

items: Matrix or list of item parameter vectors (a, b, c, d); use (a, b, 0, 1) for 2PL items.
theta: Current provisional ability estimate.
se_target: Positive precision target.
estimator: "ML" (default) or "BM" (normal prior).
prior_var: Prior variance sigma^2 for the BM estimator.

Value

A list with elements stop, se, information, item_information, n_items, estimator, se_target, method.

References

Magis, D. and Raiche, G. (2012). Random generation of response patterns under computerized adaptive testing with the R package catR. Journal of Statistical Software, 48(8). Wainer, H. and Mislevy, R. J. (2000). In Wainer (ed.), Computerized Adaptive Testing: A Primer, 2nd ed.

Examples

items <- matrix(c(1, 0, 0.2, 0.95, 1.2, -0.5, 0.1, 0.98, 0.8, 1, 0.15, 0.9),
                3, 4, byrow = TRUE)
morie_catstop(items, theta = 0.5, se_target = 0.5)
#> $stop
#> [1] FALSE
#> 
#> $se
#> [1] 1.530373
#> 
#> $information
#> [1] 0.4269777
#> 
#> $item_information
#> [1] 0.13983002 0.20321676 0.08393092
#> 
#> $n_items
#> [1] 3
#> 
#> $estimator
#> [1] "ML"
#> 
#> $se_target
#> [1] 0.5
#> 
#> $method
#> [1] "CAT precision stopping rule (catR Eqs. 3-4, 6)"
#>