Sawa's Bayesian Information Criteria
sbic(model, full_model)
lm
lm
options include R, STATA and SASSawa's Bayesian Information Criteria
full_model <- lm(mpg ~ ., data = mtcars) model <- lm(mpg ~ disp + hp + wt + qsec, data = mtcars) sbic(model, full_model)#> [1] 70.27599