# NOT RUN {
# Open a connection to IRIS DMC webservices
iris <- new("IrisClient")
starttime <- as.POSIXct("2018-01-01",tz="GMT")
endtime <- as.POSIXct("2019-01-01",tz="GMT")
network <- "TA"
station <- "M22K"
channel <- "BHZ"
traceList <- getDataAvailability(iris,network,station,"*",channel,starttime,endtime)
traceList
# }
Run the code above in your browser using DataLab