Description Details Author(s) References Examples
Gather information about seismic networks (stations, channels, locations, etc), download seismic time series in miniseed format, and find historical earthquake data (origins, magnitudes, etc).
Package: | rFDSN |
Type: | Package |
Version: | 0.0.0 |
Date: | 2014-09-22 |
License: | GPL v3 |
Daniel C. Bowman daniel.bowman@unc.edu
FDSN Web Services:
http://www.fdsn.org/webservices/
List of base URLS for data download:
http://www.fdsn.org/webservices/datacenters/
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | #Find all stations with operating vertical seismic channels
#within 2 degrees of Socorro, New Mexico,
#between 2010 and 2013
#available through the IRIS DMC server.
library(rFDSN)
## Not run:
#IRIS station server
base.url <- "http://service.iris.edu/fdsnws/station/1/"
#Selection criteria
parameters <- list(
name = c(
"latitude",
"longitude",
"maxradius",
"cha",
"start",
"end"),
value = c(
34.068110, #Latitude
-106.901847, #Longitude
2, #Degrees from center point
"*Z",#Channel (with wildcards)
"2010-01-01", #Start time
"2014-01-01") #End time
)
networks <- FDSNGetNetworks(base.url, parameters)
#Download pressure data at station Y22D on August 9, 2014
#IRIS data download server
base.url <- "http://service.iris.edu/fdsnws/dataselect/1/"
parameters <- list(
name = c(
"sta",
"cha",
"start",
"end"),
value = c(
"Y22D", #Station name
"BDF", #SEED channel name
"2014-08-09T00:00:00.000", #Midnight GMT
"2014-08-09T23:59:59.999") #Midnight GMT
)
miniseed.file <- FDSNGetTimeSeries(base.url, parameters, save.file = "Y22D_BDF.mseed")
#Get all earthquakes within 2 degrees of Socorro, new Mexico,
#between 2010 and 2013
#IRIS event server
base.url <- "http://service.iris.edu/fdsnws/event/1/"
#Selection criteria
parameters <- list(
name = c(
"latitude",
"longitude",
"maxradius",
"start",
"end"),
value = c(
34.068110, #Latitude
-106.901847, #Longitude
2, #Degrees from center point
"2010-01-01", #Start time
"2014-01-01") #End time
)
events <- FDSNGetEvents(base.url, parameters)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.