22 0.5*(dat$x1 + sapply(dat$sdx, function(sd) rnorm(1,0,sd)))
26 conditional_effects(fit2,resp='y')
27 plot(conditional_effects(fit2,resp='y'))
42 summary(brms.corrected.logit)
43 summary(brms.corrected.logit)
53 true.model$null.deviance
59 setwd("../../partitioning_reddit")
63 install.packages("filelock")