making up data for a series of experiments - generic stub code

expt_sims.R

conditions <- read_csv("condition_means.csv")

generate_data <- function(condition_df, n_subs = 40, n_trials = 3) {
  tibble(speaker = condition_df$speaker, 
         prior = condition_df$prior,
         info = condition_df$info, 
         experiment = condition_df$experiment,
         correct = rbinom(1, n_subs * n_trials, 
                          condition_df$mean_correct), 
         subid = rep(1:n_subs, n_trials))
}

participant_data <- conditions %>%
  mutate(index = 1:n()) %>%
  split(.$index) %>%
  map_df(generate_data) 

glmer(correct ~ speaker * prior * info + (1|subid), 
      data = participant_data)