# Open a connection to IRIS DMC webservices
iris <- new("IrisClient")
# Get the same signal, shifted by 3 seconds
starttime <- as.POSIXct("2013-11-12 07:09:45",tz="GMT")
endtime <- starttime + 600
st1 <- getSNCL(iris,"NM.SLM.00.BHZ",starttime,endtime)
st2 <- getSNCL(iris,"NM.SLM.00.BHZ",starttime+3,endtime+3)
# Cross-correlate
crossCorrelationMetric(st1,st2)
#[[1]]
# SingleValueMetric
# metric: peak_correlation
# snclq: NM.SLM.00.BHZ.M
# starttime: 2013-11-12 07:09:45
# endtime: 2013-11-12 07:19:45
# value: 0.999
# snclq2: NM.SLM.00.BHZ.M
#
#[[2]]
#SingleValueMetric
# metric: peak_lag
# snclq: NM.SLM.00.BHZ.M
# starttime: 2013-11-12 07:09:45
# endtime: 2013-11-12 07:19:45
# value: 3.000
# snclq2: NM.SLM.00.BHZ.M
Run the code above in your browser using DataLab