data(iris)
coly="Sepal.Length"
fixed="Sepal.Width"
candidates=c("Species","-1","Sepal.Width:Species")
results.lm = FindMinIC(coly, candidates, fixed, iris)
# model with lowest IC:
first.model = getFirstModel(results.lm)
print(summary(first.model))
# model with 3rd lowest IC:
third.model = getNthModel(results.lm, 3)
print(summary(third.model))
# list of first 5 models, ordered by AIC
print(summary(results.lm)$table[1:5,])
# list of first 5 models, ordered by BIC
results.bic = FindMinIC(coly, candidates, fixed, iris, ic="BIC")
print(summary(results.bic)$table[1:5,])
fm = FindMinIC(Infant.Mortality ~ ., data = swiss)
summary(fm)
fm2 = FindMinIC(Infant.Mortality ~ Fertility + Agriculture + Education * Catholic,
data = swiss)
summary(fm2)
# list of first 5 models, ordered by AICc
if (require(nlme)) {
results.aicc = FindMinIC(distance~age, data=Orthodont,
ic="AICc", model="lme",
random= ~ 1 | Subject)
print(summary(results.aicc))
}
Run the code above in your browser using DataLab