if (FALSE) {
# Open a connection to EarthScope webservices (including the BSS)
iris <- new("IrisClient", debug=TRUE)
starttime <- as.POSIXct("2016-08-01", tz="GMT")
endtime <- starttime + 30*24*3600
metricName <- "sample_max"
# Get the measurement dataframe
juneStats <- getGeneralValueMetrics(iris,"IU","ANMO","","BH[12Z]",
starttime,endtime,metricName)
print(juneStats)
}
Run the code above in your browser using DataLab