if (FALSE) {
# Open a connection to IRIS DMC webservices
iris <- new("IrisClient")
# Use getSNCL to request data for II.JTS.00.BHZ
starttime <- as.POSIXct("2001-02-28",tz="GMT")
endtime <- as.POSIXct("2001-03-01",tz="GMT")
st <- getSNCL(iris, "II.JTS.00.BHZ",starttime, endtime, quality="M",
repository="primary",inclusiveEnd=FALSE,ignoreEpoch=TRUE)
# Display structure of trace(s)
str(st)
# Plot trace
plot(st)
}
Run the code above in your browser using DataLab