This is a test. Patrick is coolio.

data(mtcars)
arm::display(lm(mpg ~ wt, data = mtcars))
arm::display(lm(mpg ~ hp, data = mtcars))

So, this is where we look at plots.

plot(asdf)