## Not run:
# # Open a connection to IRIS DMC webservices
# iris <- new("IrisClient")
#
# starttime <- as.POSIXct("2010-02-27 06:00:00", tz="GMT")
# endtime <- as.POSIXct("2010-02-27 09:00:00", tz="GMT")
#
# # Get the waveform
# st <- getDataselect(iris,"IU","ANMO","00","BHZ",starttime,endtime)
# tr <- st@traces[[1]]
#
# # Demean, detrend, cosine taper
# tr <- DDT(tr)
#
# # Create Hilbert transform of the trace
# trh <- hilbert(tr)
#
# # Plot signal data and hilbert data
# plot(tr@data, type='l', col='gray80')
# points(trh@data, type='l', col='blue')
# ## End(Not run)
Run the code above in your browser using DataLab