\Header{JohnsonJohnson}{Quarterly Earnings per Johnson \& Johnson Share}
\keyword{datasets}{JohnsonJohnson}
\begin{Description}\relax
Quarterly earnings (dollars) per Johnson \& Johnson share 1960--80.\end{Description}
\begin{Usage}
\begin{verbatim}data(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}
data(JohnsonJohnson)
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}

