JohnsonJohnson           package:datasets           R Documentation

_Q_u_a_r_t_e_r_l_y _E_a_r_n_i_n_g_s _p_e_r _J_o_h_n_s_o_n & _J_o_h_n_s_o_n _S_h_a_r_e

_D_e_s_c_r_i_p_t_i_o_n:

     Quarterly earnings (dollars) per Johnson & Johnson share 1960-80.

_U_s_a_g_e:

     JohnsonJohnson

_F_o_r_m_a_t:

     A quarterly time series

_S_o_u_r_c_e:

     Shumway, R. H. and Stoffer, D. S. (2000) _Time Series Analysis and
     its Applications_. Second Edition.  Springer.  Example 1.1.

_E_x_a_m_p_l_e_s:

     require(stats)
     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)

