## Not run:
# # Open a connection to IRIS DMC webservices
# iris <- new("IrisClient")
#
# starttime <- as.POSIXct("2002-04-20", tz="GMT")
# endtime <- as.POSIXct("2002-04-21", tz="GMT")
# st4 <- getDataselect(iris,"US","OXF","","BHZ",starttime,endtime)
# stm4 <- mergeTraces(st4)
#
# # plot merged trace
# plot(stm4@traces[[1]])
# mtext(paste(length(st4@traces),"traces"), side=3, line=0.5, adj=0.05, cex=1.5)
# ## End(Not run)
Run the code above in your browser using DataLab