# NOT RUN {
data(immigration)
# marginal means
mm(immigration, ChosenImmigrant ~ Gender + Education + LanguageSkills,
id = ~ CaseID, h0 = 0.5)
# higher-order marginal means with feature interactions
immigration$language_entry <-
interaction(immigration$LanguageSkills, immigration$PriorEntry, sep = "_")
mm(immigration, ChosenImmigrant ~ language_entry,
id = ~CaseID)
# }
Run the code above in your browser using DataLab