# NOT RUN {
data(spi)
data(spi.dictionary)
psych::bestScales(spi, criteria="health",dictionary=spi.dictionary)
sc <- psych::scoreVeryFast(spi.keys,spi) #much faster scoring for just scores
sc <- psych::scoreItems(spi.keys,spi) #gives the alpha reliabilities and various stats
psych::corPlot(sc$corrected,numbers=TRUE,cex=.4,xlas=2,min.length=6,
main="Structure of SPI (disattenuated r above the diagonal)")
# }
Run the code above in your browser using DataLab