\HeaderA{freeny}{Freeny's Revenue Data}{freeny}
\methaliasA{freeny.x}{freeny}{freeny.x}
\methaliasA{freeny.y}{freeny}{freeny.y}
\keyword{datasets}{freeny}
\begin{Description}\relax
Freeny's data on quarterly revenue and explanatory variables.
\end{Description}
\begin{Usage}
\begin{verbatim}
freeny
freeny.x
freeny.y
\end{verbatim}
\end{Usage}
\begin{Format}\relax
There are three \sQuote{freeny} data sets.

\code{freeny.y} is a time series with 39 observations on quarterly
revenue from (1962,2Q) to (1971,4Q).

\code{freeny.x} is a matrix of explanatory variables.  The columns
are \code{freeny.y} lagged 1 quarter, price index, income level, and
market potential.

Finally, \code{freeny} is a data frame with variables \code{y},
\code{lag.quarterly.revenue}, \code{price.index}, \code{income.level},
and \code{market.potential} obtained from the above two data objects.
\end{Format}
\begin{Source}\relax
A. E. Freeny (1977)
\emph{A Portable Linear Regression Package with Test Programs}.
Bell Laboratories memorandum.
\end{Source}
\begin{References}\relax
Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988)
\emph{The New S Language}.
Wadsworth \& Brooks/Cole.
\end{References}
\begin{Examples}
\begin{ExampleCode}
summary(freeny)
pairs(freeny, main = "freeny data") # gives warning: freeny$y has class "ts"
summary(fm1 <- lm(y ~ ., data = freeny))
opar <- par(mfrow = c(2, 2), oma = c(0, 0, 1.1, 0),
            mar = c(4.1, 4.1, 2.1, 1.1))
plot(fm1)
par(opar)
\end{ExampleCode}
\end{Examples}