# Open a connection to IRIS DMC webservices
iris <- new("IrisClient")
# Get the waveform
starttime <- as.POSIXct("2013-01-03 15:00:00", tz="GMT")
endtime <- starttime + 3600 * 3
st <- getDataselect(iris,"IU","RAO","10","BHZ",starttime,endtime)
# Calculate the gaps metrics and show the results
metricList <- spikesMetric(st)
dummy <- lapply(metricList, show)Run the code above in your browser using DataLab