library(interactionR)
data(OCdata)
## fit the interaction model
model.glm <- glm(oc ~ alc * smk,
family = binomial(link = "logit"),
data = OCdata
)
## Then pass the fitted model to the main function
value <- interactionR(model.glm,
exposure_names = c("alc", "smk"),
ci.type = "delta", ci.level = 0.95,
em = FALSE, recode = FALSE
)
## Use the tabling function to generate a table
interactionR_table(value)
Run the code above in your browser using DataLab