SMCs are also used when estimating reliability using Guttman's lambda 6 guttman
coefficient.
The SMC is just 1 - 1/diag(R.inv) where R.inv is the inverse of R.
smc(R,covar=FALSE)
If the matrix is not invertible, then a vector of 1s is returned
mat.regress
, factor.pa
R <- make.hierarchical()
round(smc(R),2)
Run the code above in your browser using DataLab