66 lines
797 B
R
66 lines
797 B
R
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
|