# NOT RUN {
result <- logistic("titanic", "survived", "pclass", lev = "Yes")
summary(result, test_var = "pclass")
res <- logistic("titanic", "survived", c("pclass","sex"), int="pclass:sex", lev="Yes")
summary(res, sum_check = c("vif","confint","odds"))
titanic %>% logistic("survived", c("pclass","sex","age"), lev = "Yes") %>% summary("vif")
# }
Run the code above in your browser using DataLab