data(RSPdata)
# Is the pattern of relationships between self reported
#extraversion and behavior replicable?
RSPdata$sEXT
data(beh.comp)
head(beh.comp)
vector.alpha(RSPdata$sEXT, beh.comp) #alpha = .666
# Might also try vector.splithalf
vector.splithalf(RSPdata$sEXT,beh.comp) # split-half reliability = .684
Run the code above in your browser using DataLab