# NOT RUN {
library(ordinal)
library(emmeans)
## create data frame with predictor codings
moddata <- get_model_data()
## use 'allsimp' with emmeans for equivalence test
mod_emm <- emmeans(truth_trajectory_models[["ix2"]],
allsimp ~ Rep * Int, data = moddata)
mod_emm
# }
Run the code above in your browser using DataLab