%\VignetteIndexEntry{Sweave Example: Linear Regression for Economics Journals Data}
\documentclass[a4paper]{article}
\begin{document}
We fit a linear regression for the economic journals demand model.
<<>>=
data("Journals", package = "AER")
journals_lm <- lm(log(subs) ~ log(price/citations), data = Journals)
journals_lm
@
A scatter plot with the fitted regression line is shown below.
\begin{center}
<>=
plot(log(subs) ~ log(price/citations), data = Journals)
abline(journals_lm)
@
\end{center}
\end{document}