## Not run:
# # Open a connection to IRIS DMC webservices (including the BSS)
# iris <- new("IrisClient", debug=TRUE)
#
# starttime <- as.POSIXct("2012-01-24", tz="GMT")
# endtime <- as.POSIXct("2012-01-25", tz="GMT")
#
# # Get the measurement XML
# xml <- getPsdMetrics(iris,"AK","PIN","","VEA",
# starttime,endtime,metricName="sample_mean",
# url="http://service.iris.edu/mustang/measurements/1/query?")
# ## End(Not run)
Run the code above in your browser using DataLab