if (FALSE) {
## load and deconvolve example event
data(rockfall)
rockfall_eseis <- signal_deconvolve(rockfall_eseis)
## plot event straight away
plot_event(data = rockfall_eseis)
## plot event with adjusted parameters
plot_event(data = rockfall_eseis,
ratio = c(0.4, 0.3),
method = "periodogram",
n = 100,
window = 6,
overlap = 0.8,
window_sub = 4,
overlap_sub = 0.8,
format ="%M:%S",
col = "jet",
ylim = c(5, 80),
zlim = c(-170, -100))
}
Run the code above in your browser using DataLab