astsa (version 2.4)

eqexp: Earthquake and Explosion Seismic Series

Description

This is a data frame of the earthquake and explosion seismic series used throughout the text.

Format

A data frame with 2048 observations (rows) on 17 variables (columns). Each column is a numeric vector.

Details

The matrix has 17 columns, the first eight are earthquakes, the second eight are explosions, and the last column is the Novaya Zemlya event of unknown origin.

The column names are: EQ1, EQ2,...,EQ8; EX1, EX2,...,EX8; NZ. The first 1024 observations correspond to the P wave, the second 1024 observations correspond to the S wave.

All events in the data set were on or near land and were distributed uniformly over Scandinavia so as to minimize the possibility that discriminators might be keying on location or land-sea differences. The events are earthquakes ranging in magnitude from 2.74 to 4.40 and explosions in the range 2.13 to 2.19. Also added is an event of uncertain origin that was located in the Novaya Zemlya region of Russia. All events except the Russian event occurred in the Scandinavian peninsula and were recorded by seismic arrays located in Norway by Norwegian and Arctic experimental seismic stations (NORESS, ARCESS) and in Finland by Finnish experimental seismic stations (FINESS).

No.	Type	Date	Array	Magnitude	Latitude	Longitude
1	EQ	6/16/92	FINESS	3.22	65.5	22.9
2	EQ	8/24/91	ARCESS	3.18	65.7	32.1
3	EQ	9/23/91	NORESS	3.15	64.5	21.3
4	EQ	7/4/92	FINESS	3.60	67.8	15.1
5	EQ	2/19/92	ARCESS	3.26	59.2	10.9
6	EQ	4/13/92	NORESS	4.40	51.4	6.1
7	EQ	4/14/92	NORESS	3.38	59.5	5.9
8	EQ	5/18/92	NORESS	2.74	66.9	13.7
9	EX	3/23/91	ARCESS	2.85	69.2	34.3
10	EX	4/13/91	FINESS	2.60	61.8	30.7
11	EX	4/26/91	ARCESS	2.95	67.6	33.9
12	EX	8/3/91	ARCESS	2.13	67.6	30.6
13	EX	9/5/91	ARCESS	2.32	67.1	21.0
14	EX	12/10/91	FINESS	2.59	59.5	24.1
15	EX	12/29/91	ARCESS	2.96	69.4	30.8
16	EX	3/25/92	NORESS	2.94	64.7	30.8
17	NZ	12/31/92	NORESS	2.50	73.6	55.2

References

You can find demonstrations of astsa capabilities at FUN WITH ASTSA.

The most recent version of the package can be found at https://github.com/nickpoison/astsa/.

In addition, the News and ChangeLog files are at https://github.com/nickpoison/astsa/blob/master/NEWS.md.

The webpages for the texts and some help on using R for time series analysis can be found at https://nickpoison.github.io/.

Examples

# view all series 
# first 2 rows EQs - next 2 rows EXs
# 5th row NZ event 

tsplot(eqexp, ncol=4, col=c(rep(6,8),rep(4,8),2), scale=.75)

if (FALSE) {

# for a nice html map, use the 'leaflet' package

library(leaflet)   # install if you don't have it

lat = c(
65.5,65.7,64.5,67.8,59.2,51.4,59.5,66.9,
69.2,61.8,67.6,67.6,67.1,59.5,69.4,64.7,
73.6)

long = c(
22.9,32.1,21.3,15.1,10.9,6.1,5.9,13.7,
34.3,30.7,33.9,30.6,21.0,24.1,30.8,30.8,
55.2)

event = c(
"EQ1","EQ2","EQ3","EQ4","EQ5","EQ6","EQ7","EQ8",
"EX1","EX2","EX3","EX4","EX5","EX6","EX7","EX8",
"NZ")


eventmap = data.frame(
  longitude = long,
  latitude = lat,
  event = event )

leaflet(eventmap) %>%
  addTiles() %>% 
  addMarkers(~longitude, ~latitude, label = ~event,
    labelOptions = labelOptions(noHide = TRUE))

}