Skip to contents

Alpha if item deleted

Usage

morie_psymet_alphadel(data)

Arguments

data

Numeric matrix / data.frame.

Value

data.frame with item, adel.

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_alphadel(X)
out
#>   item      adel
#> 1   i1 0.7877385
#> 2   i2 0.7503940
#> 3   i3 0.8216097
#> 4   i4 0.7854709
#> 5   i5 0.7984489