## Not run:
#
# #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)
Run the code above in your browser using DataLab