data(iris)
coly="Sepal.Length"
fixed="Sepal.Width"
candidates=c("Species","-1","Sepal.Width:Species")
results.lm = FindMinIC(coly, candidates, fixed, iris)
print(summary(results.lm))
# best model:
print(summary(getFirstModel(results.lm)))
print(summaryTable(results.lm, 1))
print(summary(results.lm$results[[1]]))
# 4th best model:
print(summary(getNthModel(results.lm, 4)))
print(summary(results.lm$results[[4]]))
Run the code above in your browser using DataLab