

LifeCycleSavings {base}                      R Documentation

_I_n_t_e_r_c_o_u_n_t_r_y _L_i_f_e_-_C_y_c_l_e _S_a_v_i_n_g_s _D_a_t_a

_D_e_s_c_r_i_p_t_i_o_n_:

     Data on the savings ratio 1960-1970.

_U_s_a_g_e_:

     data(LifeCycleSavings)

_F_o_r_m_a_t_:

     A data frame with 50 observations on 5 variables.

      [,1]      sr        numeric      aggregate personal savings
      [,2]      pop15     numeric      % of population under 15
      [,3]      pop75     numeric      % of population over 75
      [,4]      dpi       numeric      real per-capita disposable income
      [,5]      ddpi      numeric      % growth rate of dpi

_D_e_t_a_i_l_s_:

     Under the life-cycle savings hypothesis as developed by
     Franco Modigliani, the savings ratio (aggregate per-
     sonal saving divided by disposable income) is explained
     by per-capita disposable income, the percentage rate of
     change in per-capita disposable income, and two demo-
     graphic variables: the percentage of population less
     than 15 years old and the percentage of the population
     over 75 years old.  The data are averaged over the
     decade 1960-1970 to remove the business cycle or other
     short-term fluctuations.

_S_o_u_r_c_e_:

     The data were obtained from Belsley, Kuh and Welsch
     (1980).  They in turn obtained the data from Sterling
     (1977).

_R_e_f_e_r_e_n_c_e_s_:

     Sterling, Arnie (1977). Unpublished BS Thesis.  Mas-
     sachusetts Institute of Technology.

     Belsley, D. A., E. Kuh and R. E. Welsch (1980).
     Regression Diagnostics.  New York: Wiley.

_E_x_a_m_p_l_e_s_:

     data(LifeCycleSavings)
     pairs(LifeCycleSavings, panel = panel.smooth,
           main = "LifeCycleSavings data")
     fm1 <- lm(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings)
     summary(fm1)

