Corrected item-total correlations
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_itemtotal(X)
out
#> item r_total r_corr
#> 1 i1 0.7736271 0.6271825
#> 2 i2 0.8541029 0.7506852
#> 3 i3 0.6644147 0.4992338
#> 4 i4 0.7930102 0.6383697
#> 5 i5 0.7422859 0.5895492
