## Model fitting using dataset from assmann et al.
## The data is available in the package.
m <- glm(h ~ ns * smk,
family = binomial(link = "logit"),
data = HDiscdata
)
# \donttest{
interactionR_boot(m,
ci.level = 0.95, em = FALSE, recode = FALSE,
seed = 12345, s = 1000
)
# }
Run the code above in your browser using DataLab