# NOT RUN {
Corr(airquality)
Corr(airquality, p.adjust="bonferroni")
d=as.data.table(psych::bfi)
d[,`:=`(
gender=as.factor(gender),
education=as.factor(education),
E=MEAN(d, "E", 1:5, rev=c(1,2), likert=1:6),
A=MEAN(d, "A", 1:5, rev=1, likert=1:6),
C=MEAN(d, "C", 1:5, rev=c(4,5), likert=1:6),
N=MEAN(d, "N", 1:5, likert=1:6),
O=MEAN(d, "O", 1:5, rev=c(2,5), likert=1:6)
)]
Corr(d[,.(age, gender, education, E, A, C, N, O)])
# }
Run the code above in your browser using DataLab