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