## Not run:
# # Open a connection to IRIS DMC webservices
# iris <- new("IrisClient")
#
# # Get the waveform
# starttime <- as.POSIXct("2012-01-24", tz="GMT")
# endtime <- as.POSIXct("2012-01-25", tz="GMT")
# st <- getDataselect(iris,"AK","PIN","","VEA",starttime,endtime)
#
# # Apply a metric and show the results
# metricList <- stateOfHealthMetric(st)
# metricList <- append(metricList, basicStatsMetric(st))
# saveMetricList(metricList,id='AK.PIN..VEA')
# ## End(Not run)
Run the code above in your browser using DataLab