# NOT RUN {
# Example 1 ----------------------------------
if (requireNamespace("car")) {
add_vif_ex1 <-
lm(age ~ grade + marker, trial) %>%
tbl_regression() %>%
add_vif()
}
# Example 2 ----------------------------------
if (requireNamespace("car")) {
add_vif_ex2 <-
lm(age ~ grade + marker, trial) %>%
tbl_regression() %>%
add_vif(c("aGVIF", "df"))
}
# }
Run the code above in your browser using DataLab