# NOT RUN {
library(psycho)
require(lmerTest)
require(rstanarm)
fit <- lm(Adjusting ~ Birth_Season * Salary, data = affective)
get_contrasts(fit)
fit <- lm(Adjusting ~ Birth_Season * Salary, data = affective)
get_contrasts(fit, adjust = "bonf")
fit <- lmerTest::lmer(Adjusting ~ Birth_Season * Salary + (1 | Salary), data = affective)
get_contrasts(fit, formula = "Birth_Season")
fit <- rstanarm::stan_glm(Adjusting ~ Birth_Season, data = affective)
get_contrasts(fit, formula = "Birth_Season", ROPE_bounds = c(-0.1, 0.1))
# }
Run the code above in your browser using DataLab