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