Interactions (code)

Prep

Loading packages

library(tidyverse)
library(forcats)
library(marginaleffects)

Getting data to model

library(palmerpenguins)

rt_frequency <- read_csv("https://raw.githubusercontent.com/bodowinter/applied_statistics_book_data/master/ELP_length_frequency.csv")

ey_data <- read_csv("https://bit.ly/ey_dat")
pnc_demo <- read_csv("https://bit.ly/3wOfcGx") |> 
  select(idstring, gender)

ey_data |> 
  left_join(
    pnc_demo,
    by = join_by(speaker == idstring)
  ) ->
  ey_data_demo

um_uh <- read_csv("https://bit.ly/3JdeSbx")

Reuse