| attenu {datasets} | R Documentation |
The Joyner–Boore Attenuation Data
Description
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.
Usage
attenuFormat
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) |
Source
Joyner WB, Boore DM, Porcella RL (1981). “Peak Horizontal Acceleration and Velocity from Strong-Motion Records Including Records from the 1979 Imperial Valley, California Earthquake.” Technical Report USGS Open-File Repot 81-365, United States Department of the Interior, Menlo Park, CA. https://pubs.usgs.gov/of/1981/0365/.
References
Bolt BA, Abrahamson NA (1982). “New Attenuation Relations for Peak and Expected Accelerations of Strong Ground Motion.” Bulletin of the Seismological Society of America, 72(6A), 2307–2322. doi:10.1785/BSSA07206A2307.
Bolt BA, Abrahamson NA (1983). “Reply to W. B. Joyner and D. M. Boore's “Comments on ‘New Attenuation Relations for Peak and Expected Accelerations of Strong Ground Motion’”.” Bulletin of the Seismological Society of America, 73(5), 1481–1483. doi:10.1785/BSSA0730051481.
Boore DM, Joyner WB (1982). “The Empirical Prediction of Ground Motion.” Bulletin of the Seismological Society of America, 72(6B), S43–S60. doi:10.1785/BSSA07206B0043.
Brillinger DR, Preisler HK (1984). “An Exploratory Analysis of the Joyner-Boore Attenuation Data.” Bulletin of the Seismological Society of America, 74(4), 1441–1450. doi:10.1785/BSSA0740041441.
Brillinger DR, Preisler HK (1985). “Further Analysis of the Joyner-Boore Attenuation Data.” Bulletin of the Seismological Society of America, 75(2), 611–614. doi:10.1785/BSSA0750020611.
Examples
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)