if (FALSE) {
## load ObsPy library with package 'reticulate'
## (requires ObsPy to be installed on the computer)
obspy <- reticulate::import("obspy")
## load example data set
data(rockfall)
## convert example eseis object to ObsPy stream object
x <- aux_eseisobspy(data = rockfall_eseis)
## filter data set using ObsPy
x_filter <- obspy$traces[[1]]$filter(type = "bandpass",
freqmin = 0.5,
freqmax = 1.0)
## plot filtered trace using ObsPy plotting routine
x$traces[[1]]$plot()
}
Run the code above in your browser using DataLab