data(acq1)
data(caq)
#Lets look at Profile correlations between self-report California Adult Q-Sort
#ratings of personality and Aquaintance #ratings
names(acq1)
names(caq)
# The basic Profile agreements
Profile.r(caq, acq1)
# Both overall and distinctive agreements
Profile.r(caq, acq1, distinct = TRUE)$Agreement
# How replicable (reliable) are those agreement patterns?
Profile.r.rep(caq, acq1)
Run the code above in your browser using DataLab