plogacev

# based on the great vignette on specifying custom response distributions in brms:
# https://cran.r-project.org/web/packages/brms/vignettes/brms_customfamilies.html

library(languageR)
library(brms)

danish$RT <- exp(danish$LogRT) 
danish$cSex <- ifelse(danish$Sex == "M", -1, 1) * 0.5 
danish$cPrevError <- ifelse(danish$PrevError == "CORRECT", -0.5, 0.5)

plogacev

# based on the great vignette on specifying custom response distributions in brms:
# https://cran.r-project.org/web/packages/brms/vignettes/brms_customfamilies.html

library(languageR)
library(brms)

danish$RT <- exp(danish$LogRT) 
danish$cSex <- ifelse(danish$Sex == "M", -1, 1) * 0.5 

lognormal2 <- custom_family(