if (FALSE) {
# Create a new IrisClient
iris <- new("IrisClient", debug=TRUE)
# Get seismic data
starttime <- as.POSIXct("2011-05-05", tz="GMT")
endtime <- starttime + 1*24*3600
st <- getDataselect(iris,"IU","GRFO","--","BHE",starttime,endtime)
sampling_rate <- 20
# Generate power spectral density for each hour long segment
evalresp <- transferFunctionSpectra(st,sampling_rate)
}
Run the code above in your browser using DataLab