m1 <- lm(Sepal.Length ~ Petal.Width + Species, data = iris)
m2 <- lm(Sepal.Length ~ Species, data = iris)
m3 <- lm(Sepal.Length ~ Petal.Width, data = iris)
m4 <- lm(Sepal.Length ~ 1, data = iris)
m5 <- lm(Petal.Width ~ 1, data = iris)
objects <- ellipsis_info(m1, m2, m3, m4)
class(objects)
objects <- ellipsis_info(m1, m2, m4)
attributes(objects)$is_nested
objects <- ellipsis_info(m1, m2, m5)
attributes(objects)$same_response
Run the code above in your browser using DataLab