## Not run:
# # Open a connection to IRIS DMC webservices
# iris <- new("IrisClient")
#
# # NOTE: The following trace has 1.728 million points.
# # NOTE: Downloading and calculating PSD may take a few seconds.
# starttime <- as.POSIXct("2010-02-27",tz="GMT")
# endtime <- as.POSIXct("2010-02-28",tz="GMT")
#
# # Get the waveform
# st <- getDataselect(iris,"IU","ANMO","00","BHZ",starttime,endtime)
#
# # Calculate the PSD metric and show the SingleValueMetric results
# listOfLists <- PSDMetric(st)
# svMetricList <- listOfLists[['svMetricList']]
#
# dummy <- lapply(svMetricList, show)
# ## End(Not run)
Run the code above in your browser using DataLab