# NOT RUN {
library(psycho)
library(rstanarm)
data <- attitude
fit <- rstanarm::stan_glm(rating ~ advance + privileges, data = data)
results <- analyze(fit, effsize = TRUE)
summary(results)
print(results)
plot(results)
fit <- rstanarm::stan_lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris)
results <- analyze(fit)
summary(results)
fit <- rstanarm::stan_glm(Sex ~ Adjusting,
data = psycho::affective, family = "binomial"
)
results <- analyze(fit)
summary(results)
fit <- rstanarm::stan_glmer(Sex ~ Adjusting + (1 | Salary),
data = psycho::affective, family = "binomial"
)
results <- analyze(fit)
summary(results)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab