attenu               package:datasets               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 acceleration.

_U_s_a_g_e:

     attenu

_F_o_r_m_a_t:

     A data frame 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 Joyner, W.B.(1982) The empirical prediction of
     ground motion, _Bull. Seism. Soc. Am._, *72*, S269-S268.

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

     Bolt B. A. and Abrahamson, N. A. (1983) Reply to W. B. Joyner & 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 Preisler, H. K. (1984) An exploratory
     analysis of the Joyner-Boore attenuation data, _Bull. Seism. Soc.
     Am._, *74*, 1441-1449.

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

_E_x_a_m_p_l_e_s:

     require(graphics)
     ## 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.given = FALSE)
     coplot(log(accel) ~ log(dist) | as.factor(event),
            data = attenu, panel = panel.smooth, show.given = FALSE)