data( data.read )
dat <- data.read
I <- ncol(dat)
# define item strata
itemstrata <- cbind( colnames(dat) , substring( colnames(dat) , 1 ,1 ) )
stratified.cronbach.alpha( data.read , itemstrata=itemstrata )
## scale I alpha mean.tot var.tot alpha.stratified
## 1 total 12 0.677 8.680 5.668 0.703
## 2 A 4 0.545 2.616 1.381 NA
## 3 B 4 0.381 2.811 1.059 NA
## 4 C 4 0.640 3.253 1.107 NA
Run the code above in your browser using DataLab