R/cronbach.R

In Cronbach: Cronbach's Alpha

Defines functions cronbach

Documented in cronbach

cronbach <- function(x) {

  s <- cov(x)
  p <- dim(s)[1]
  p / (p - 1) * (1 - sum( diag(s) ) / sum(s) )

}

Try the Cronbach package in your browser