

attenu {base}                                R Documentation

_T_h_e _J_o_y_n_e_r_-_B_o_o_r_e _A_t_t_e_n_u_a_t_i_o_n _D_a_t_a

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

     This data gives peak accelerations measured at various
     observation stations for 23 earthquakes in California.
     The data have been used by various workers to estimate
     the attenuating affect of distance on ground accelera-
     tion.

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

     data(attenu)

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

     A dataframe with 182 observations on 5 variables.

      [,1]     event        numeric      Event Number
      [,2]     mag          numeric      Moment Magnitude
      [,3]     station      factor       Station Number
      [,4]     dist         numeric      Station-hypocenter distance (km)
      [,5]     accel        numeric      Peak acceleration (g)

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

     Joyner, W.B., D.M. Boore and R.D. Porcella (1981).
     Peak horizontal acceleration and velocity from strong-
     motion records including records from the 1979 Imperial
     Valley, California earthquake.  USGS Open File report
     81-365. Menlo Park, Ca.

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

     Boore, D.M. and W.B. Joyner (1982).  The empirical pre-
     diction of ground motion, Bull. Seism. Soc. Am. 72,
     S269-S268.

     Bolt B.A. and N.A. Abrahamson (1982).  New attenuation
     relations for peak and expected accelerations of strong
     ground motion, Bull.  Seism. Soc. Am. 72, 2307-2321.

     Bolt B.A. and N.A. Abrahamson (1983).  Reply to W.B.
     Joyner and D.M. Boore's "Comments on `new attenuation
     relations for peak and expected accelerations for peak
     and expected accelerations of strong ground motion'",
     Bull. Seism. Soc. Am. 73 , 1481-1483.

     Brillinger, D.R. and H.K. Preisler (1984).  An
     exploratory analysis of the Joyner-Boore attenuation
     data, Bull. Seism. Soc. Am. 74, 1441-1449.

     Brillinger, D.R. and H.K. Preisler (1984).  Further
     analysis of the Joyner-Boore attenuation data,
     Manuscript.

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

     data(attenu)
     ## check the data class of the variables
     sapply(attenu, data.class)
     summary(attenu)
     pairs(attenu, main = "attenu data")
     coplot(accel ~ dist | as.factor(event), data = attenu, show = FALSE)
     coplot(log(accel) ~ log(dist) | as.factor(event),
            data = attenu, panel = panel.smooth, show.given = FALSE)

