```
# NOT RUN {
temp <- error.dots(psychTools::bfi[1:25],sort=TRUE,
xlab="Mean score for the item, sorted by difficulty")
error.dots(psychTools::bfi[1:25],sort=TRUE, order=temp$order,
add=TRUE, eyes=TRUE) #over plot with eyes
error.dots(psychTools::ability,eyes=TRUE, xlab="Mean score for the item")
cd <- cohen.d(psychTools::bfi[1:26],"gender")
temp <- error.dots(cd, select=c(1:15,21:25),head=12,tail=13,
main="Cohen d and confidence intervals of BFI by gender")
error.dots(cd,select=c(16:20),head=13,tail=12,col="blue",add=TRUE,fg="red" ,main="")
abline(v=0)
# }
```

Run the code above in your browser using DataCamp Workspace