File: cronbach.R

package info (click to toggle)
r-cran-psy 1.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 284 kB
  • sloc: makefile: 2
file content (12 lines) | stat: -rw-r--r-- 293 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#' @importFrom stats na.omit
#' @export
cronbach <-
  function(v1)
  {
    v1 <- na.omit(v1)
    nv1 <- ncol(v1)
    pv1 <- nrow(v1)
    alpha <- (nv1/(nv1-1))*(1 - sum(apply(v1,2,var))/var(apply(v1,1,sum)))
    resu <- list("sample.size"=pv1,"number.of.items"=nv1,"alpha"=alpha)
    resu
  }