# NOT RUN {
data("chickwts")
bas.chk = bas.lm(weight ~ feed, data=chickwts)
bas.chk.int = force.heredity.bas(bas.chk)
data(Hald)
bas.hald = bas.lm(Y ~ .^2, data=Hald)
bas.hald.int = force.heredity.bas(bas.hald)
image(bas.hald.int)
image(bas.hald.int)
# }
Run the code above in your browser using DataLab