## Not run:
# # Open a connection to IRIS DMC webservices
# iris <- new("IrisClient")
#
# # Get seismic traces
# starttime <- as.POSIXct("2013-03-01", tz="GMT")
# endtime <- as.POSIXct("2013-03-02",tz="GMT")
# stZ <- getDataselect(iris,"IU","ANMO","00","BHZ",starttime,endtime)
# st1 <- getDataselect(iris,"IU","ANMO","00","BH1",starttime,endtime)
# st2 <- getDataselect(iris,"IU","ANMO","00","BH2",starttime,endtime)
#
# # Calculate correlationMetric
# correlationMetric(stZ,st1)[[1]]
# correlationMetric(stZ,st2)[[1]]
# correlationMetric(st1,st2)[[1]]
# ## End(Not run)
Run the code above in your browser using DataLab