The following packages were used to generate this figure:
| Scale | b | SE | CI lower | CI upper | Z | p |
|---|---|---|---|---|---|---|
| Neuroticism main effect | ||||||
| reference (NEO-FFI) | -0.27 | 0.08 | -0.43 | -0.11 | -3.39 | .001 |
| IPIP or Goldberg | 0.34 | 0.11 | 0.13 | 0.55 | 3.18 | .001 |
| BFI | 0.19 | 0.09 | 0.02 | 0.36 | 2.19 | .029 |
| MIDI | 0.41 | 0.09 | 0.24 | 0.58 | 4.66 | < .001 |
| NEO-PI-R | 0.20 | 0.10 | 0.01 | 0.39 | 2.11 | .035 |
| Conscientiousness main effect | ||||||
| reference (NEO-FFI) | -0.17 | 0.10 | -0.37 | 0.04 | -1.59 | .112 |
| IPIP or Goldberg | 0.10 | 0.15 | -0.18 | 0.39 | 0.72 | .472 |
| BFI | 0.08 | 0.14 | -0.21 | 0.36 | 0.53 | .594 |
| MIDI | 0.07 | 0.13 | -0.17 | 0.32 | 0.58 | .563 |
| NEO-PI-R | 0.13 | 0.13 | -0.13 | 0.38 | 0.99 | .320 |
| Neuroticism x Conscientiousness (no covariates) | ||||||
| reference (NEO-FFI) | 0.13 | 0.07 | 0.00 | 0.26 | 1.96 | .050 |
| IPIP or Goldberg | -0.19 | 0.09 | -0.37 | -0.01 | -2.11 | .035 |
| BFI | -0.09 | 0.07 | -0.23 | 0.06 | -1.17 | .242 |
| MIDI | -0.09 | 0.07 | -0.23 | 0.06 | -1.20 | .229 |
| NEO-PI-R | -0.20 | 0.08 | -0.36 | -0.04 | -2.51 | .012 |
| Neuroticism x Conscientiousness (demographic covariates) | ||||||
| reference (NEO-FFI) | 0.16 | 0.07 | 0.02 | 0.29 | 2.22 | .026 |
| IPIP or Goldberg | -0.24 | 0.09 | -0.43 | -0.06 | -2.58 | .010 |
| BFI | -0.12 | 0.08 | -0.27 | 0.03 | -1.52 | .129 |
| MIDI | -0.11 | 0.08 | -0.26 | 0.04 | -1.44 | .149 |
| NEO-PI-R | -0.22 | 0.08 | -0.39 | -0.06 | -2.69 | .007 |
| Neuroticism x Conscientiousness (demographic and personality covariates) | ||||||
| reference (NEO-FFI) | 0.13 | 0.08 | -0.02 | 0.28 | 1.66 | .097 |
| IPIP or Goldberg | -0.22 | 0.10 | -0.42 | -0.01 | -2.09 | .036 |
| BFI | -0.09 | 0.09 | -0.26 | 0.09 | -0.96 | .336 |
| MIDI | -0.08 | 0.09 | -0.25 | 0.09 | -0.92 | .357 |
| NEO-PI-R | -0.19 | 0.09 | -0.37 | 0.00 | -2.01 | .045 |
| Age x Neuroticism x Conscientiousness | ||||||
| reference (NEO-FFI) | -0.14 | 0.95 | -2.01 | 1.73 | -0.15 | .882 |
| IPIP or Goldberg | 0.37 | 0.98 | -1.56 | 2.29 | 0.38 | .708 |
| BFI | 0.17 | 0.95 | -1.70 | 2.04 | 0.18 | .858 |
| MIDI | 0.22 | 0.96 | -1.66 | 2.09 | 0.23 | .821 |
| NEO-PI-R | 0.05 | 0.96 | -1.82 | 1.93 | 0.06 | .955 |
The following packages were used to generate this figure:
library(papaja)
library(tidyverse)
library(knitr)
library(kableExtra)
library(here)load(here("behavior/created data/mods_drinker.Rdata"))rows = length(unique(drinker.mods$names))
drinker.mods %>%
dplyr::select(-model) %>%
mutate(pval = printp(pval),
names = gsub("intrcpt", "reference (NEO-FFI)", names),
names = gsub("personality", "", names),
names = ifelse(names == "", "IPIP or Goldberg", names)) %>%
kable(., booktabs = TRUE, escape = FALSE, digits = 2,
col.names = c("Scale", "b", "SE", "CI lower", "CI upper", "Z", "p")) %>%
kable_styling() %>%
group_rows("Neuroticism main effect", 1, rows) %>%
group_rows("Conscientiousness main effect", 1+rows, rows*2) %>%
group_rows("Neuroticism x Conscientiousness (no covariates)", 1+rows*2, rows*3) %>%
group_rows("Neuroticism x Conscientiousness (demographic covariates)", 1+rows*3, rows*4) %>%
group_rows("Neuroticism x Conscientiousness (demographic and personality covariates)", 1+rows*4, rows*5) %>%
group_rows("Age x Neuroticism x Conscientiousness", 1+rows*5, rows*6)