Cronbach (1951) alpha with each item deleted in turn
Examples
M <- matrix(c(1, 2, 3, 4, 5, 6), nrow = 2)
CttAlphaMax(M)
#> $alpha_full
#> [1] 1
#>
#> $alpha_dropped
#> [1] 1 1 1
#>
#> $delta
#> [1] 0 0 0
#>
#> $max_alpha
#> [1] 1
#>
#> $argmax_alpha
#> [1] 0
#>
#> $estimate
#> [1] 1
#>
#> $n_items
#> [1] 3
#>
#> $n
#> [1] 2
#>
#> $method
#> [1] "Cronbach (1951) alpha recomputed with each item deleted"
#>
