## 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 metricList
# metricList <- getBssMetricList(iris,"AK","PIN","","",starttime,endtime,
# metricName="sample_mean")
# show(metricList)
# ## End(Not run)
Run the code above in your browser using DataLab