if (FALSE) {
# Open a connection to EarthScope webservices (including the BSS)
iris <- new("IrisClient", debug=TRUE)
starttime <- as.POSIXct("2014-01-24", tz="GMT")
endtime <- as.POSIXct("2014-01-25", tz="GMT")
# Get the metricList
metricList <- getBssMetricList(iris,"AK","PIN","","",starttime,endtime,
metricName="sample_mean")
show(metricList)
}
Run the code above in your browser using DataLab