compRel <- computeCompositeReliability(mydata, n=c("A"=10, "B"=5, "C"=2),
weights=c("A"=1/3,"B"=1/3, "C"=1/3), optimizeSEM=TRUE)
compRel$reliability
compRel$SEM
compRel$weights
Run the code above in your browser using DataLab