Checks whether a list of models are nested models, strictly following the order they were passed to the function.
Value
TRUE
if models are nested, FALSE
otherwise. If models
are nested, also returns two attributes that indicate whether nesting of
models is in decreasing or increasing order.
Examples
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)
is_nested_models(m1, m2, m4)
#> [1] TRUE
#> attr(,"is_nested_increasing")
#> [1] FALSE
#> attr(,"is_nested_decreasing")
#> [1] TRUE
is_nested_models(m4, m2, m1)
#> [1] TRUE
#> attr(,"is_nested_increasing")
#> [1] TRUE
#> attr(,"is_nested_decreasing")
#> [1] FALSE
is_nested_models(m1, m2, m3)
#> [1] FALSE