# NOT RUN {
library(psycho)
df <- psycho::affective
cor <- bayes_cor(df)
summary(cor)
print(cor)
plot(cor)
df <- select(psycho::affective, Adjusting, Tolerating)
df2 <- select(psycho::affective, -Adjusting, -Tolerating)
cor <- bayes_cor(df, df2)
summary(cor)
print(cor)
plot(cor)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab