\HeaderA{JohnsonJohnson}{Quarterly Earnings per Johnson \& Johnson Share}{JohnsonJohnson}
\keyword{datasets}{JohnsonJohnson}
\begin{Description}\relax
Quarterly earnings (dollars) per Johnson \& Johnson share 1960--80.
\end{Description}
\begin{Usage}
\begin{verbatim}JohnsonJohnson\end{verbatim}
\end{Usage}
\begin{Format}\relax
A quarterly time series
\end{Format}
\begin{Source}\relax
Shumway, R. H. and Stoffer, D. S. (2000)
\emph{Time Series Analysis and its Applications}.
Second Edition.  Springer.  Example 1.1.
\end{Source}
\begin{Examples}
\begin{ExampleCode}
require(stats); require(graphics)
JJ <- log10(JohnsonJohnson)
plot(JJ)
(fit <- StructTS(JJ, type="BSM"))
tsdiag(fit)
sm <- tsSmooth(fit)
plot(cbind(JJ, sm[, 1], sm[, 3]-0.5), plot.type = "single",
     col = c("black", "green", "blue"))
abline(h = -0.5, col = "grey60")

monthplot(fit)
\end{ExampleCode}
\end{Examples}

