## Not run:
# mod1 <- lm(Sepal.Length ~ Sepal.Width, data = iris)
# mod2 <- update(mod1, formula = . ~ . + Petal.Length)
# mod3 <- update(mod2, formula = . ~ . + Petal.Width)
#
# # No bootstrapped Delta R^2 CI
# print_model_comp(list(Baseline = mod1, Length = mod2, Both = mod3), boot_samples = 0)
# ## End(Not run)
Run the code above in your browser using DataLab