Chapter 4 Simulating Mixed Effects

I'm going to walk through one example of simulating a dataset with random effects. I'll generate data for a Stroop task where people (subjects) say the colour of colour words (stimuli) shown in each of two versions (congruent and incongruent). Subjects are in one of two conditions (hard and easy). The dependent variable (DV) is reaction time.

• congruent: RED, ORANGE, YELLOW, GREEN, BLUE, PURPLE
• incongruent: RED, ORANGE, YELLOW, GREEN, BLUE, PURPLE

We expect people to have faster reaction times for congruent stimuli than incongruent stimuli (main effect of version) and to be faster in the easy condition than the hard condition (main effect of condition). We'll look at some different interaction patterns below.

4.1 Setup

We'll use the tidyverse to manipulate data frames and lmerTest (which includes lmer) to run the mixed effects models. I also like to set the scipen and digits options to get rid of scientific notation in lmer output.

When you're simulating data, you should start your script by setting a seed. You can use any number you like, this just makes sure that you get the same results every time you run the script. (Thanks for reminding me to add and explain this, Tim Morris!)

library(tidyverse) # for data wrangling, pipes, and good dataviz
library(lmerTest)  # for mixed effect models
library(GGally)    # makes it easy to plot relationships between variables
# devtools::install_github("debruine/faux")
library(faux)      # for simulating correlated variables

options("scipen"=10, "digits"=4) # control scientific notation
set.seed(8675309) # Jenny, I've got your number

If you are running repeated simulations (e.g., for a power calculation), make sure you never use set.seed inside of a function that creates random numbers, or the function will always give you the exact same numbers.

4.2 Random intercepts

4.2.1 Subjects

First, we need to generate a sample of subjects. Each subject will have slightly faster or slower reaction times on average; this is their random intercept (sub_i). We'll model it from a normal distribution with a mean of 0 and SD of 100ms.

We also add between-subject variables here. Each subject is in only one condition, so assign half easy and half hard. Set the number of subjects as sub_n at the beginning so you can change this in the future with only one edit.

sub_n  <- 200 # number of subjects in this simulation
sub_sd <- 100 # SD for the subjects' random intercept

sub <- tibble(
sub_id = 1:sub_n,
sub_i  = rnorm(sub_n, 0, sub_sd), # random intercept
sub_cond = rep(c("easy","hard"), each = sub_n/2) # between-subjects factor
)

If you already have pilot data, you can estimate a realistic SD for the subjects' random intercepts using the following code.

pilot_mod <- lmer(dv ~ 1 + (1 | sub_id) + (1 | stim_id), data = pilot_data)

sub_sd <- VarCorr(pilot_mod) %>%
as.data.frame() %>%
filter(grp == "sub_id") %>%
pull(sdcor)

I like to check my simulations at every step with a graph. We expect subjects in hard and easy conditions to have approximately equal intercepts.

ggplot(sub, aes(sub_i, color = sub_cond)) +
geom_density() Figure 4.1: Double-check subject intercepts

4.2.2 Stimuli

Now, we generate a sample of stimuli. Each stimulus will have slightly faster or slower reaction times on average; this is their random intercept (stim_i). We'll model it from a normal distribution with a mean of 0 and SD of 50ms (it seems reasonable to expect less variability between words than people for this task). Stimulus version (congruent vs incongruent) is a within-stimulus variable, so we don't need to add it here.

stim_n  <- 50 # number of stimuli in this simulation
stim_sd <- 50 # SD for the stimuli's random intercept

stim <- tibble(
stim_id = 1:stim_n,
stim_i = rnorm(stim_n, 0, stim_sd) # random intercept
)
If you want to simulate data using the exact stimuli you already have pilot data for, you can calculate their random intercepts using the following code and use that instead of generating a random sample with the same SD.

pilot_mod <- lmer(dv ~ 1 + (1 | sub_id) + (1 | stim_id), data = pilot_data)

stim <- ranef(pilot_mod)\$stim_id %>%
as_tibble(rownames = 'stim_id') %>%
rename(stim_i = `(Intercept)`)

Plot the random intercepts to double-check they look like you expect.

ggplot(stim, aes(stim_i)) +
geom_density() Figure 4.2: Double-check stimulus intercepts

4.2.3 Trials

Now we put the subjects and stimuli together. In this study, all subjects respond to all stimuli in both upright and inverted versions, but subjects are in only one condition. The function expand.grid gives you a data frame with all possible combinations of the arguments. Add the data specific to each subject and stimulus by left joining the sub and stim data frames.

trials <- expand.grid(
sub_id = sub\$sub_id, # get subject IDs from the sub data table
stim_id = stim\$stim_id, # get stimulus IDs from the stim data table
stim_version = c("congruent", "incongruent") # all subjects see both congruent and incongruent versions of all stimuli
) %>%
left_join(sub, by = "sub_id") %>% # includes the intercept and conditin for each subject
left_join(stim, by = "stim_id")   # includes the intercept for each stimulus
Table 4.1: Subject- and stimulus-specific random intercepts for 2 subjects and 2 stimuli
sub_id stim_id stim_version sub_i sub_cond stim_i
1 1 congruent -99.66 easy -4.418
2 1 congruent 72.18 easy -4.418
1 2 congruent -99.66 easy 4.057
2 2 congruent 72.18 easy 4.057
1 1 incongruent -99.66 easy -4.418
2 1 incongruent 72.18 easy -4.418
1 2 incongruent -99.66 easy 4.057
2 2 incongruent 72.18 easy 4.057

4.3 Calculate DV

Now we can calculate the DV by adding together an overall intercept (mean RT for all trials), the subject-specific intercept, the stimulus-specific intercept, the effect of subject condition, the interaction between condition and version (set to 0 for this first example), the effect of stimulus version, and an error term.

4.3.1 Fixed effects

We set these effects in raw units (ms) and effect-code the subject condition and stimulus version. It's usually easiest to interpret if you recode the level that you predict will be larger as +0.5 and the level you predict will be smaller as -0.5. So when we set the effect of subject condition (sub_cond_eff) to 50, that means the average difference between the easy and hard condition is 50ms. Easy is effect-coded as -0.5 and hard is effect-coded as +0.5, which means that trials in the easy condition have -0.5 * 50ms (i.e., -25ms) added to their reaction time, while trials in the hard condition have +0.5 * 50ms (i.e., +25ms) added to their reaction time.

# set variables to use in calculations below
grand_i          <- 400 # overall mean DV
sub_cond_eff     <- 50  # mean difference between conditions: hard - easy
stim_version_eff <- 50  # mean difference between versions: incongruent - congruent
cond_version_ixn <-  0  # interaction between version and condition
error_sd         <- 25  # residual (error) SD

We set the error SD fairly low here so that it's easier to see how the parameters we set map onto the analysis output. You can calculate a realistic error SD from pilot data with the code below.

pilot_mod <- lmer(dv ~ 1 + (1 | sub_id) + (1 | stim_id), data = pilot_data)

error_sd <- VarCorr(pilot_mod) %>%
as.data.frame() %>%
filter(grp == "Residual") %>%
pull(sdcor)

The code chunk below effect-codes the condition and version factors (important for the analysis below), generates an error term for each trial, and generates the DV.

dat <- trials %>%
mutate(
# effect-code subject condition and stimulus version
sub_cond.e = recode(sub_cond, "hard" = -0.5, "easy" = +0.5),
stim_version.e = recode(stim_version, "congruent" = -0.5, "incongruent" = +0.5),
# calculate error term (normally distributed residual with SD set above)
err = rnorm(nrow(.), 0, error_sd),
# calculate DV from intercepts, effects, and error
dv = grand_i + sub_i + stim_i + err +
(sub_cond.e * sub_cond_eff) +
(stim_version.e * stim_version_eff) +
(sub_cond.e * stim_version.e * cond_version_ixn) # in this example, this is always 0 and could be omitted
)

As always, graph to make sure you've simulated the general pattern you expected.

ggplot(dat, aes(sub_cond, dv, color = stim_version)) +
geom_hline(yintercept = grand_i) +
geom_violin(alpha = 0.5) +
geom_boxplot(width = 0.2, position = position_dodge(width = 0.9)) Figure 4.3: Double-check the simulated pattern

Let's take a concrete example.

Table 4.2: Subject 1's reaction time to stimulus 1 in the congruent condition
sub_id stim_id stim_version sub_i sub_cond stim_i sub_cond.e stim_version.e err dv
1 1 congruent -99.66 easy -4.418 0.5 -0.5 -8.318 287.6

The DV is equal to the grand intercept (400) plus the subject's intercept (-99.6582) plus the stimulus' intercept (-4.4182) plus the effect code for the subject's condition (easy = -0.5) times the effect size for subject condition (50) plus the effect code for stimulus version (congruent = -0.5) times the effect size for stimulus version (50) plus some random error (-8.3181).

400 + -99.6582 + -4.4182 + (-0.5 * 50) + (-0.5 * 50) + -8.3181 = 287.6054

In this simulated dataset, the grand intercept is 401.6, the mean difference between subject conditions is 60.2, and the mean difference between stimulus versions is -49.5.

4.3.2 Interactions

If you want to simulate an interaction, it can be tricky to figure out what to set the main effects and interaction effect to. It can be easier to think about the simple main effects for each cell. Create four new variables and set them to the deviations from the overall mean you'd expect for each condition (so they should add up to 0). Here, we're simulating a small effect of version in the hard condition (50ms difference) and double that effect of version in the easy condition (100ms difference).

# set variables to use in calculations below
grand_i    <- 400
hard_congr <- -25
hard_incon <- +25
easy_congr <- -50
easy_incon <- +50
error_sd   <-  25

Use the code below to transform the simple main effects above into main effects and interactions for use in the equations below.

# calculate main effects and interactions from simple effects above

# mean difference between easy and hard conditions
sub_cond_eff     <- (easy_congr + easy_incon)/2 -
(hard_congr + hard_incon)/2
# mean difference between incongruent and congruent versions
stim_version_eff <- (hard_incon + easy_incon)/2 -
(hard_congr + easy_congr)/2
# interaction between version and condition
cond_version_ixn <- (easy_incon - easy_congr) -
(hard_incon - hard_congr)

Then generate the DV the same way we did above, but also add the interaction effect multiplied by the effect-coded subject condition and stimulus version.

dat <- trials %>%
mutate(
# effect-code subject condition and stimulus version
sub_cond.e = recode(sub_cond, "hard" = -0.5, "easy" = +0.5),
stim_version.e = recode(stim_version, "congruent" = -0.5, "incongruent" = +0.5),
# calculate error term (normally distributed residual with SD set above)
err = rnorm(nrow(.), 0, error_sd),
# calculate DV from intercepts, effects, and error
dv = grand_i + sub_i + stim_i + err +
(sub_cond.e * sub_cond_eff) +
(stim_version.e * stim_version_eff) +
(sub_cond.e * stim_version.e * cond_version_ixn)
)
ggplot(dat, aes(sub_cond, dv, color = stim_version)) +
geom_hline(yintercept = grand_i) +
geom_violin(alpha = 0.5) +
geom_boxplot(width = 0.2, position = position_dodge(width = 0.9)) Figure 4.4: Double-check the interaction between condition and version

Let's look at subject 1's reaction time to stimulus 1 in the congruent condition in more detail again.

Table 4.3: Subject 1's reaction time to stimulus 1 in the congruent condition
sub_id stim_id stim_version sub_i sub_cond stim_i sub_cond.e stim_version.e err dv
1 1 congruent -99.66 easy -4.418 0.5 -0.5 -31.74 214.2

The DV is equal to the grand intercept (400) plus the subject's intercept (-99.6582) plus the stimulus' intercept (-4.4182) plus the effect code for the subject's condition (easy = -0.5) times the effect size for subject condition (0) plus the effect code for stimulus version (congruent = -0.5) times the effect size for stimulus version(75) plus the effect code for the subject's condition (easy = -0.5) times the effect code for stimulus version (congruent = -0.5) times the effect size for the interaction (50) plus some random error (-31.7369).

400 + -99.6582 + -4.4182 + (-0.5 * 0) + (-0.5 * 75) + (-0.5 * -0.5 * 50) + -31.7369 = 214.1866

group_by(dat, sub_cond, stim_version) %>%
summarise(m = mean(dv) - grand_i %>% round(1)) %>%
ungroup() %>%
knitr::kable()
sub_cond congruent incongruent
easy -42.54 57.56
hard -28.16 20.89

4.4 Analysis

New we will run a linear mixed effects model with lmer and look at the summary.

mod <- lmer(dv ~ sub_cond.e * stim_version.e +
(1 | sub_id) +
(1 | stim_id),
data = dat)

mod.sum <- summary(mod)

mod.sum
## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula: dv ~ sub_cond.e * stim_version.e + (1 | sub_id) + (1 | stim_id)
##    Data: dat
##
## REML criterion at convergence: 187441
##
## Scaled residuals:
##    Min     1Q Median     3Q    Max
## -3.777 -0.664 -0.001  0.661  3.617
##
## Random effects:
##  Groups   Name        Variance Std.Dev.
##  sub_id   (Intercept) 9180     95.8
##  stim_id  (Intercept) 3070     55.4
##  Residual              629     25.1
## Number of obs: 20000, groups:  sub_id, 200; stim_id, 50
##
## Fixed effects:
##                            Estimate Std. Error        df t value Pr(>|t|)
## (Intercept)                 401.937     10.360   131.411   38.80   <2e-16
## sub_cond.e                   11.146     13.555   198.000    0.82     0.41
## stim_version.e               74.574      0.355 19749.000  210.31   <2e-16
## sub_cond.e:stim_version.e    51.053      0.709 19749.000   71.99   <2e-16
##
## (Intercept)               ***
## sub_cond.e
## stim_version.e            ***
## sub_cond.e:stim_version.e ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
##             (Intr) sb_cn. stm_v.
## sub_cond.e  0.000
## stim_versn. 0.000  0.000
## sb_cnd.:s_. 0.000  0.000  0.000

4.4.1 Sense checks

First, check that your groups make sense (mod.sum\$ngrps).

• The number of obs should be the total number of trials analysed.
• sub_id should be what we set sub_n to above (200).
• stim_id should be what we set stim_n to above (50).
##  sub_id stim_id
##     200      50

Next, look at the random effects (mod.sum\$varcor).

• The SD for sub_id should be near the sub_sd of 100.
• The SD for stim_id should be near the stim_sd off 50.
• The residual SD should be near the error_sd of 25.
##  Groups   Name        Std.Dev.
##  sub_id   (Intercept) 95.8
##  stim_id  (Intercept) 55.4
##  Residual             25.1

Finally, look at the fixed effects (mod.sum\$coefficients).

• The estimate for the Intercept should be near the grand_i of 400.
• The main effect of sub_cond.e should be near what we calculated for sub_cond_eff (0).
• The main effect of stim_version.e should be near what we calculated for stim_version_eff (75)
• The interaction between sub_cond.e:stim_version.e should be near what we calculated for cond_version_ixn (50).
##                           Estimate Std. Error      df  t value  Pr(>|t|)
## (Intercept)                 401.94    10.3598   131.4  38.7979 7.766e-74
## sub_cond.e                   11.15    13.5547   198.0   0.8223 4.119e-01
## stim_version.e               74.57     0.3546 19749.0 210.3088 0.000e+00
## sub_cond.e:stim_version.e    51.05     0.7092 19749.0  71.9876 0.000e+00

4.4.2 Random effects

Plot the subject intercepts from our code above (sub\$sub_i) against the subject intercepts calculcated by lmer (ranef(mod)\$sub_id).

ranef(mod)\$sub_id %>%
as_tibble(rownames = "sub_id") %>%
rename(mod_sub_i = `(Intercept)`) %>%
mutate(sub_id = as.integer(sub_id)) %>%
left_join(sub, by = "sub_id") %>%
ggplot(aes(sub_i,mod_sub_i)) +
geom_point() +
geom_smooth(method = "lm") +
xlab("Simulated random intercepts (sub_i)") +
ylab("Modeled random intercepts") Figure 4.5: Compare simulated subject random intercepts to those from the model

Plot the stimulus intercepts from our code above (stim\$stim_i) against the stimulus intercepts calculcated by lmer (ranef(mod)\$stim_id).

ranef(mod)\$stim_id %>%
as_tibble(rownames = "stim_id") %>%
rename(mod_stim_i = `(Intercept)`) %>%
mutate(stim_id = as.integer(stim_id)) %>%
left_join(stim, by = "stim_id") %>%
ggplot(aes(stim_i,mod_stim_i)) +
geom_point() +
geom_smooth(method = "lm") +
xlab("Simulated random intercepts (stim_i)") +
ylab("Modeled random intercepts") Figure 4.6: Compare simulated stimulus random intercepts to those from the model

4.5 Function

You can put the code above in a function so you can run it more easily and change the parameters. I removed the plot and set the argument defaults to the same as the example above, but you can set them to other patterns.

sim_lmer <- function( sub_n = 200,
sub_sd = 100,
stim_n = 50,
stim_sd = 50,
grand_i = 400,
hard_congr = -25,
hard_incon = +25,
easy_congr = -50,
easy_incon = +50,
error_sd = 25) {
sub <- tibble(
sub_id = 1:sub_n,
sub_i  = rnorm(sub_n, 0, sub_sd),
sub_cond = rep(c("hard","easy"), each = sub_n/2)
)

stim <- tibble(
stim_id = 1:stim_n,
stim_i = rnorm(stim_n, 0, stim_sd)
)

# mean difference between easy and hard conditions
sub_cond_eff     <- (easy_congr + easy_incon)/2 -
(hard_congr + hard_incon)/2
# mean difference between incongruent and congruent versions
stim_version_eff <- (hard_incon + easy_incon)/2 -
(hard_congr + easy_congr)/2
# interaction between version and condition
cond_version_ixn <- (easy_incon - easy_congr) -
(hard_incon - hard_congr)

dat <- expand.grid(
sub_id = sub\$sub_id,
stim_id = stim\$stim_id,
stim_version = c("congruent", "incongruent")
) %>%
left_join(sub, by = "sub_id") %>%
left_join(stim, by = "stim_id") %>%
mutate(
# effect-code subject condition and stimulus version
sub_cond.e = recode(sub_cond, "hard" = -0.5, "easy" = +0.5),
stim_version.e = recode(stim_version, "congruent" = -0.5, "incongruent" = +0.5),
# calculate error term (normally distributed residual with SD set above)
err = rnorm(nrow(.), 0, error_sd),
# calculate DV from intercepts, effects, and error
dv = grand_i + sub_i + stim_i + err +
(sub_cond.e * sub_cond_eff) +
(stim_version.e * stim_version_eff) +
(sub_cond.e * stim_version.e * cond_version_ixn)
)

mod <- lmer(dv ~ sub_cond.e * stim_version.e +
(1 | sub_id) +
(1 | stim_id),
data = dat)

mod.sum <- summary(mod)

return(mod.sum)
}

Run the function with the default values.

sim_lmer()
## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula: dv ~ sub_cond.e * stim_version.e + (1 | sub_id) + (1 | stim_id)
##    Data: dat
##
## REML criterion at convergence: 187457
##
## Scaled residuals:
##    Min     1Q Median     3Q    Max
## -4.389 -0.676 -0.004  0.674  4.581
##
## Random effects:
##  Groups   Name        Variance Std.Dev.
##  sub_id   (Intercept) 8855     94.1
##  stim_id  (Intercept) 2659     51.6
##  Residual              630     25.1
## Number of obs: 20000, groups:  sub_id, 200; stim_id, 50
##
## Fixed effects:
##                            Estimate Std. Error        df t value Pr(>|t|)
## (Intercept)                 390.831      9.873   140.402   39.58   <2e-16
## sub_cond.e                  -12.626     13.313   197.996   -0.95     0.34
## stim_version.e               75.093      0.355 19749.001  211.61   <2e-16
## sub_cond.e:stim_version.e    50.586      0.710 19749.001   71.28   <2e-16
##
## (Intercept)               ***
## sub_cond.e
## stim_version.e            ***
## sub_cond.e:stim_version.e ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
##             (Intr) sb_cn. stm_v.
## sub_cond.e  0.000
## stim_versn. 0.000  0.000
## sb_cnd.:s_. 0.000  0.000  0.000

Try changing some variables to simulate null effects.

sim_lmer(hard_congr = 0,
hard_incon = 0,
easy_congr = 0,
easy_incon = 0)
## Warning in checkConv(attr(opt, "derivs"), opt\$par, ctrl =
## control\$checkConv, : Model failed to converge with max|grad| = 0.00336514
## (tol = 0.002, component 1)
## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula: dv ~ sub_cond.e * stim_version.e + (1 | sub_id) + (1 | stim_id)
##    Data: dat
##
## REML criterion at convergence: 187296
##
## Scaled residuals:
##    Min     1Q Median     3Q    Max
## -4.140 -0.662 -0.003  0.670  4.115
##
## Random effects:
##  Groups   Name        Variance Std.Dev.
##  sub_id   (Intercept) 11700    108.2
##  stim_id  (Intercept)  2692     51.9
##  Residual               623     25.0
## Number of obs: 20000, groups:  sub_id, 200; stim_id, 50
##
## Fixed effects:
##                            Estimate Std. Error        df t value Pr(>|t|)
## (Intercept)                 407.692     10.601   165.095   38.46   <2e-16
## sub_cond.e                   -7.251     15.301   197.982   -0.47    0.636
## stim_version.e               -0.888      0.353 19748.994   -2.52    0.012
## sub_cond.e:stim_version.e    -0.849      0.706 19748.994   -1.20    0.229
##
## (Intercept)               ***
## sub_cond.e
## stim_version.e            *
## sub_cond.e:stim_version.e
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
##             (Intr) sb_cn. stm_v.
## sub_cond.e  0.000
## stim_versn. 0.000  0.000
## sb_cnd.:s_. 0.000  0.000  0.000
## convergence code: 0
## Model failed to converge with max|grad| = 0.00336514 (tol = 0.002, component 1)

4.6 Random slopes

In the example so far we've ignored random variation among subjects or stimuli in the size of the fixed effects (i.e., random slopes).

First, let's reset the parameters we set above.

sub_n            <- 200 # number of subjects in this simulation
sub_sd           <- 100 # SD for the subjects' random intercept
stim_n           <- 50  # number of stimuli in this simulation
stim_sd          <- 50  # SD for the stimuli's random intercept
grand_i          <- 400 # overall mean DV
sub_cond_eff     <- 50  # mean difference between conditions: hard - easy
stim_version_eff <- 50  # mean difference between versions: incongruent - congruent
cond_version_ixn <-  0  # interaction between version and condition
error_sd         <- 25  # residual (error) SD

4.6.1 Subjects

In addition to generating a random intercept for each subject, now we will also generate a random slope for any within-subject factors. The only within-subject factor in this design is stim_version. The main effect of stim_version is set to 50 above, but different subjects will show variation in the size of this effect. That's what the random slope captures. We'll set sub_version_sd below to the SD of this variation and use this to calculate the random slope (sub_version_slope) for each subject.

Also, it's likely that the variation between subjects in the size of the effect of version is related in some way to between-subject variation in the intercept. So we want the random intercept and slope to be correlated. Here, we'll simulate a case where subjects who have slower (larger) reaction times across the board show a smaller effect of condition, so we set sub_i_version_cor below to a negative number (-0.2).

I'm writing a package that has functions to easily create correlated variables for simulations. The function rnorm_multi generates n observations of vars variables with mu means and sd standard deviations with cors specific correlations. You can learn more about this function at my Simulating Multiple Vectors tutorial. You can use devtools::install_github("debruine/faux") to install the package.

The code below creates two variables (sub_i, sub_version_slope) that are correlated with r = -0.2, means of 0, and SDs equal to what we set sub_sd above and sub_version_sd below.

sub_version_sd <- 20
sub_i_version_cor <- -0.2

sub <- rnorm_multi(
n = sub_n,
vars = 2,
cors = sub_i_version_cor,
mu = 0, # means of random intercepts and slopes are always 0
sd = c(sub_sd, sub_version_sd),
varnames = c("sub_i", "sub_version_slope")
) %>%
mutate(
sub_id = 1:sub_n,
sub_cond = rep(c("easy","hard"), each = sub_n/2) # between-subjects factor
)
## Warning in rnorm_multi(n = sub_n, vars = 2, cors = sub_i_version_cor, mu =
## 0, : cors is deprecated, please use r

Plot to double-check it looks sensible.

ggplot(sub, aes(sub_i, sub_version_slope, color = sub_cond)) +
geom_point() +
geom_smooth(method = lm) Figure 4.7: Double-check slope-intercept correlations

4.6.2 Stimuli

In addition to generating a random intercept for each stimulus, we will also generate a random slope for any within-stimulus factors. Both stim_version and sub_condition are within-stimulus factors (i.e., all stimuli are seen in both congruent and incongruent versions and both easy and hard conditions). So the main effects of version and condition (and their interaction) will vary depending on the stimulus.

They will also be correlated, but in a more complex way than above. You need to set the correlations for all pairs of slopes and intercept. Let's set the correlation between the random intercept and each of the slopes to -0.4 and the slopes all correlate with each other +0.2 (You could set each of the six correlations separately if you want, though).

See the Simulating Multiple Vectors tutorial for other ways to set the correlations.

stim_version_sd <- 10 # SD for the stimuli's random slope for stim_version
stim_cond_sd <- 30 # SD for the stimuli's random slope for sub_cond
stim_cond_version_sd <- 15 # SD for the stimuli's random slope for sub_cond:stim_version
stim_i_cor <- -0.4 # correlations between intercept and slopes
stim_s_cor <- +0.2 # correlations among slopes

# specify correlations for rnorm_multi (one of several methods)
stim_cors <- c(stim_i_cor, stim_i_cor, stim_i_cor,
stim_s_cor, stim_s_cor,
stim_s_cor)
stim <- rnorm_multi(
n = stim_n,
vars = 4,
cors = stim_cors,
mu = 0, # means of random intercepts and slopes are always 0
sd = c(stim_sd, stim_version_sd, stim_cond_sd, stim_cond_version_sd),
varnames = c("stim_i", "stim_version_slope", "stim_cond_slope", "stim_cond_version_slope")
) %>%
mutate(
stim_id = 1:stim_n
)
## Warning in rnorm_multi(n = stim_n, vars = 4, cors = stim_cors, mu = 0, sd =
## c(stim_sd, : cors is deprecated, please use r

Here, we're simulating different SDs for different effects, so our plot should reflect this. The graph below uses the `ggpairs function fromt he GGally package to quickly visualise correlated variables.

GGally::ggpairs(stim, columns = 1:4,
lower = list(continuous = "smooth"),
progress = FALSE) Figure 4.8: Double-check slope-intercept correlations

4.6.3 Trials

Now we put the subjects and stimuli together in the same way as before.

trials <- expand.grid(
sub_id = sub\$sub_id, # get subject IDs from the sub data table
stim_id = stim\$stim_id, # get stimulus IDs from the stim data table
stim_version = c("congruent", "incongruent") # all subjects see both congruent and incongruent versions of all stimuli
) %>%
left_join(sub, by = "sub_id") %>% # includes the intercept, slope, and conditin for each subject
left_join(stim, by = "stim_id")   # includes the intercept and slopes for each stimulus
Table 4.4: Subject- and stimulus-specific random intercepts and slopes for 2 subjects and 2 stimuli
sub_id stim_id stim_version sub_i sub_version_slope sub_cond stim_i stim_version_slope stim_cond_slope stim_cond_version_slope
1 1 congruent -63.15 -23.61 easy 11.54 -0.0276 28.62 7.068
2 1 congruent 98.23 -2.32 easy 11.54 -0.0276 28.62 7.068
1 2 congruent -63.15 -23.61 easy -14.00 1.4777 -26.67 -1.602
2 2 congruent 98.23 -2.32 easy -14.00 1.4777 -26.67 -1.602
1 1 incongruent -63.15 -23.61 easy 11.54 -0.0276 28.62 7.068
2 1 incongruent 98.23 -2.32 easy 11.54 -0.0276 28.62 7.068
1 2 incongruent -63.15 -23.61 easy -14.00 1.4777 -26.67 -1.602
2 2 incongruent 98.23 -2.32 easy -14.00 1.4777 -26.67 -1.602

4.7 Calculate DV

Now we can calculate the DV by adding together an overall intercept (mean RT for all trials), the subject-specific intercept, the stimulus-specific intercept, the effect of subject condition, the stimulus-specific slope for condition, the effect of stimulus version, the stimulus-specific slope for version, the subject-specific slope for condition, the interaction between condition and version (set to 0 for this example), the stimulus-specific slope for the interaction between condition and version, and an error term.

dat <- trials %>%
mutate(
# effect-code subject condition and stimulus version
sub_cond.e = recode(sub_cond, "hard" = -0.5, "easy" = +0.5),
stim_version.e = recode(stim_version, "congruent" = -0.5, "incongruent" = +0.5),
# calculate trial-specific effects by adding overall effects and slopes
cond_eff = sub_cond_eff + stim_cond_slope,
version_eff = stim_version_eff + stim_version_slope + sub_version_slope,
cond_version_eff = cond_version_ixn + stim_cond_version_slope,
# calculate error term (normally distributed residual with SD set above)
err = rnorm(nrow(.), 0, error_sd),
# calculate DV from intercepts, effects, and error
dv = grand_i + sub_i + stim_i + err +
(sub_cond.e * cond_eff) +
(stim_version.e * version_eff) +
(sub_cond.e * stim_version.e * cond_version_eff)
)

As always, graph to make sure you've simulated the general pattern you expected.

ggplot(dat, aes(sub_cond, dv, color = stim_version)) +
geom_hline(yintercept = grand_i) +
geom_violin(alpha = 0.5) +
geom_boxplot(width = 0.2, position = position_dodge(width = 0.9)) Figure 4.9: Double-check the simulated pattern

4.8 Analysis

New we'll run a linear mixed effects model with lmer and look at the summary. You specify random slopes by adding the within-level effects to the random intercept specifications. Since the only within-subject factor is version, the random effects specification for subjects is (1 + stim_version.e | sub_id). Since both condition and version are within-stimuli factors, the random effects specification for stimuli is (1 + stim_version.e*sub_cond.e | stim_id).

Keep It Maximal is a great paper on how and why to set random slopes maximally like this.

This model will take a lot longer to run than one without random slopes specified.

mod <- lmer(dv ~ sub_cond.e * stim_version.e +
(1 + stim_version.e | sub_id) +
(1 + stim_version.e*sub_cond.e | stim_id),
data = dat)
## Warning in checkConv(attr(opt, "derivs"), opt\$par, ctrl =
## control\$checkConv, : Model failed to converge with max|grad| = 0.0132569
## (tol = 0.002, component 1)
mod.sum <- summary(mod)

mod.sum
## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula:
## dv ~ sub_cond.e * stim_version.e + (1 + stim_version.e | sub_id) +
##     (1 + stim_version.e * sub_cond.e | stim_id)
##    Data: dat
##
## REML criterion at convergence: 188357
##
## Scaled residuals:
##    Min     1Q Median     3Q    Max
## -4.799 -0.661 -0.007  0.657  3.788
##
## Random effects:
##  Groups   Name                      Variance Std.Dev. Corr
##  sub_id   (Intercept)               9842.1   99.21
##           stim_version.e             317.3   17.81    -0.07
##  stim_id  (Intercept)               2485.4   49.85
##           stim_version.e              93.5    9.67    -0.56
##           sub_cond.e                 646.6   25.43    -0.25  0.08
##           stim_version.e:sub_cond.e  269.3   16.41    -0.39  0.32  0.58
##  Residual                            627.3   25.05
## Number of obs: 20000, groups:  sub_id, 200; stim_id, 50
##
## Fixed effects:
##                           Estimate Std. Error     df t value Pr(>|t|)
## (Intercept)                 406.39       9.95 156.06   40.85  < 2e-16 ***
## sub_cond.e                   61.29      14.49 220.86    4.23 0.000034 ***
## stim_version.e               49.29       1.89 133.47   26.04  < 2e-16 ***
## sub_cond.e:stim_version.e    -2.04       3.50 158.43   -0.58     0.56
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
##             (Intr) sb_cn. stm_v.
## sub_cond.e  -0.044
## stim_versn. -0.322  0.014
## sb_cnd.:s_. -0.181  0.045  0.155
## convergence code: 0
## Model failed to converge with max|grad| = 0.0132569 (tol = 0.002, component 1)

4.8.1 Sense checks

First, check that your groups make sense (mod.sum\$ngrps).

• sub_id = sub_n (200)
• stim_id = stim_n (50)
##  sub_id stim_id
##     200      50

Next, look at the SDs for the random effects (mod.sum\$varcor).

• Group:sub_id
• (Intercept) ~= sub_sd (100)
• stim_version.e ~= sub_version_sd (20)
• Group: stim_id
• (Intercept) ~= stim_sd (50)
• stim_version.e ~= stim_version_sd (10)
• sub_cond.e ~= stim_cond_sd (30)
• stim_version.e:sub_cond.e ~= stim_cond_version_sd (15)
• Residual ~= error_sd (25)
##  Groups   Name                      Std.Dev. Corr
##  sub_id   (Intercept)               99.21
##           stim_version.e            17.81    -0.07
##  stim_id  (Intercept)               49.85
##           stim_version.e             9.67    -0.56
##           sub_cond.e                25.43    -0.25  0.08
##           stim_version.e:sub_cond.e 16.41    -0.39  0.32  0.58
##  Residual                           25.05

The correlations are a bit more difficult to parse. The first column under Corr shows the correlation between the random slope for that row and the random intercept. So for stim_version.e under sub_id, the correlation should be close to sub_i_version_cor (-0.2). For all three random slopes under stim_id, the correlation with the random intercept should be near stim_i_cor (-0.4) and their correlations with each other should be near stim_s_cor (0.2).

##  Groups   Name                      Std.Dev. Corr
##  sub_id   (Intercept)               99.21
##           stim_version.e            17.81    -0.07
##  stim_id  (Intercept)               49.85
##           stim_version.e             9.67    -0.56
##           sub_cond.e                25.43    -0.25  0.08
##           stim_version.e:sub_cond.e 16.41    -0.39  0.32  0.58
##  Residual                           25.05

Finally, look at the fixed effects (mod.sum\$coefficients).

• (Intercept) ~= grand_i (400)
• sub_cond.e ~= sub_cond_eff (50)
• stim_version.e ~= stim_version_eff (50)
• sub_cond.e:stim_version.e ~= cond_version_ixn (0)
##                           Estimate Std. Error    df t value  Pr(>|t|)
## (Intercept)                406.393      9.947 156.1  40.854 3.083e-85
## sub_cond.e                  61.291     14.488 220.9   4.231 3.417e-05
## stim_version.e              49.289      1.893 133.5  26.039 3.660e-54
## sub_cond.e:stim_version.e   -2.043      3.498 158.4  -0.584 5.600e-01

4.8.2 Random effects

Plot the subject intercepts and slopes from our code above (sub\$sub_i) against the subject intercepts and slopes calculcated by lmer (ranef(mod)\$sub_id).

ranef(mod)\$sub_id %>%
as_tibble(rownames = "sub_id") %>%
rename(mod_i = `(Intercept)`,
mod_version_slope = stim_version.e) %>%
mutate(sub_id = as.integer(sub_id)) %>%
left_join(sub, by = "sub_id") %>%
select(mod_i, sub_i,
mod_version_slope,  sub_version_slope) %>%
GGally::ggpairs(lower = list(continuous = "smooth"),
progress = FALSE) Figure 4.10: Compare simulated subject random effects to those from the model

Plot the stimulus intercepts and slopes from our code above (stim\$stim_i) against the stimulus intercepts and slopes calculcated by lmer (ranef(mod)\$stim_id).

ranef(mod)\$stim_id %>%
as_tibble(rownames = "stim_id") %>%
rename(mod_i = `(Intercept)`,
mod_version_slope = stim_version.e,
mod_cond_slope = sub_cond.e,
mod_cond_version_slope = `stim_version.e:sub_cond.e`) %>%
mutate(stim_id = as.integer(stim_id)) %>%
left_join(stim, by = "stim_id") %>%
select(mod_i, stim_i,
mod_version_slope, stim_version_slope,
mod_cond_slope, stim_cond_slope,
mod_cond_version_slope, stim_cond_version_slope) %>%
GGally::ggpairs(lower = list(continuous = "smooth"),
progress = FALSE) Figure 4.11: Compare simulated stimulus random effects to those from the model

4.9 Function

You can put the code above in a function so you can run it more easily and change the parameters. I removed the plot and set the argument defaults to the same as the example above, but you can set them to other patterns.

sim_lmer <- function( sub_n = 200,
sub_sd = 100,
sub_version_sd = 20,
sub_i_version_cor = -0.2,
stim_n = 50,
stim_sd = 50,
stim_version_sd = 10,
stim_cond_sd = 30,
stim_cond_version_sd = 15,
stim_i_cor = -0.4,
stim_s_cor = +0.2,
grand_i = 400,
hard_congr = -25,
hard_incon = +25,
easy_congr = -50,
easy_incon = +50,
error_sd = 25) {
sub <- rnorm_multi(
n = sub_n,
vars = 2,
cors = sub_i_version_cor,
mu = 0, # means of random intercepts and slopes are always 0
sd = c(sub_sd, sub_version_sd),
varnames = c("sub_i", "sub_version_slope")
) %>%
mutate(
sub_id = 1:sub_n,
sub_cond = rep(c("easy","hard"), each = sub_n/2) # between-subjects factor
)

stim_cors <- c(stim_i_cor, stim_i_cor, stim_i_cor,
stim_s_cor, stim_s_cor,
stim_s_cor)
stim <- rnorm_multi(
n = stim_n,
vars = 4,
cors = stim_cors,
mu = 0, # means of random intercepts and slopes are always 0
sd = c(stim_sd, stim_version_sd, stim_cond_sd, stim_cond_version_sd),
varnames = c("stim_i", "stim_version_slope", "stim_cond_slope", "stim_cond_version_slope")
) %>%
mutate(
stim_id = 1:stim_n
)

# mean difference between easy and hard conditions
sub_cond_eff     <- (easy_congr + easy_incon)/2 -
(hard_congr + hard_incon)/2
# mean difference between incongruent and congruent versions
stim_version_eff <- (hard_incon + easy_incon)/2 -
(hard_congr + easy_congr)/2
# interaction between version and condition
cond_version_ixn <- (easy_incon - easy_congr) -
(hard_incon - hard_congr)

trials <- expand.grid(
sub_id = sub\$sub_id, # get subject IDs from the sub data table
stim_id = stim\$stim_id, # get stimulus IDs from the stim data table
stim_version = c("congruent", "incongruent") # all subjects see both congruent and incongruent versions of all stimuli
) %>%
left_join(sub, by = "sub_id") %>% # includes the intercept, slope, and conditin for each subject
left_join(stim, by = "stim_id")   # includes the intercept and slopes for each stimulus

dat <- trials %>%
mutate(
# effect-code subject condition and stimulus version
sub_cond.e = recode(sub_cond, "hard" = -0.5, "easy" = +0.5),
stim_version.e = recode(stim_version, "congruent" = -0.5, "incongruent" = +0.5),
# calculate trial-specific effects by adding overall effects and slopes
cond_eff = sub_cond_eff + stim_cond_slope,
version_eff = stim_version_eff + stim_version_slope + sub_version_slope,
cond_version_eff = cond_version_ixn + stim_cond_version_slope,
# calculate error term (normally distributed residual with SD set above)
err = rnorm(nrow(.), 0, error_sd),
# calculate DV from intercepts, effects, and error
dv = grand_i + sub_i + stim_i + err +
(sub_cond.e * cond_eff) +
(stim_version.e * version_eff) +
(sub_cond.e * stim_version.e * cond_version_eff)
)

mod <- lmer(dv ~ sub_cond.e * stim_version.e +
(1 + stim_version.e | sub_id) +
(1 + stim_version.e*sub_cond.e | stim_id),
data = dat)

mod.sum <- summary(mod)

return(mod.sum)
}

Run the function with the default values.

sim_lmer()

Try changing some variables to simulate null effects.

sim_lmer(hard_congr = 0,
hard_incon = 0,
easy_congr = 0,
easy_incon = 0)