Upper/lower groups by total score (default 27% per Kelley).
Usage
morie_psymet_discrimination(data, pct = 0.27)
Arguments
- data
Numeric matrix or data.frame of items.
- pct
Numeric in (0, 0.5); proportion for the upper/lower group split (default 0.27, the Kelley-Cureton rule).
Value
data.frame with item, d.
Examples
set.seed(1)
f <- rnorm(50)
X <- sapply(1:5, function(j) sqrt(0.6) * f + sqrt(0.4) * rnorm(50))
colnames(X) <- paste0("i", 1:5)
out <- morie_psymet_discrimination(X)
out
#> item d
#> 1 i1 0.5786753
#> 2 i2 1.1901471
#> 3 i3 0.5381614
#> 4 i4 0.9995589
#> 5 i5 0.8835909
