Revisar curva de cronbach (función alpha.cronbach)

[KaPerozo]

no se pudo encontrar la función "alpha.cronbach"

alpha.curve <- function (x)
{
data = x
n = nrow(data)
k = ncol(data)
max.vec = c()
which.max.vec = c()
complete.alpha = alpha.cronbach(data)