ls()
weight
weight
lablr
labelr
nrow(labelr)
names(labelr)
names(labelr$data)
labelr$data
labelr
names(labelr)
labelr$labelr
labelr$toxic
setwd("..")
q()
n
summary(w2)
summary(w2)
q()
n
summary(fit1)
0.5*(dat$x1 + sapply(dat$sdx, function(sd) rnorm(1,0,sd)))
summary(fit1)
summary(fit2)
summary(fit2)
conditional_effects(fit2,resp='y')
plot(conditional_effects(fit2,resp='y'))
stancode(fit2)
stancode(fit1)
sessionInfo()
q()
y
p.y
range(p.y)
rbinom
df2
df2
df2
brms.corrected.logit
q()
n
summary(brms.corrected.logit)
summary(brms.corrected.logit)
p.y
q()
n
mw
summary(mw)
)
summary(true.model)
true.model
true.model$R
true.model$null.deviance
true.model$deviance
getwd()
setwd("../../)
setwd("../../)

setwd("../../partitioning_reddit")
ls
getwd()
list.files()
install.packages("filelock")
q()
n