newmodels.R

Prior <- c(set_prior("normal(0, 30)", class = "b"))

 options(mc.cores=parallel::detectCores ()-1)


f.interaction <- bf(Pressure ~ Awareness * 
    Agency * 
    Resp.Alt * 
    VisualPrime * 
    BlockNo_c * 
    CueOrderlog_c * 
    MovScore 
    + (1+Resp.Alt*VisualPrime*CueOrderlog_c|Participant))


f.interaction_null <- bf(Pressure ~ Awareness * 
    Agency * 
    Resp.Alt * 
    VisualPrime * 
    BlockNo_c * 
    CueOrderlog_c + 
    MovScore 
    + (1+Resp.Alt*VisualPrime*CueOrderlog_c|Participant))

model.interaction <- brm(f.interaction
                          data=GlobalModelData.Sugg, 
                          save_all_pars = TRUE,
                          prior = Prior)

model.interaction_null <- brm(f.interaction_null
                          data=GlobalModelData.Sugg, 
                          save_all_pars = TRUE,
                          prior = Prior)