dat <- data_test1
lm1 <- lm(y ~ x1 + x2, dat)
lm2 <- lm(y ~ x1 + x2 + x3 + x4, dat)
lm3 <- lm(y ~ x1 + cat1 + cat2 + x2 + x3 + x4, dat)
lm4 <- lm(y ~ x1 + x2*x3 + x4, dat)
# The order of entry does not matter
hierarchical(lm1, lm4, lm2)
# The following three models yield NA
hierarchical(lm3, lm4, lm2)
Run the code above in your browser using DataLab