if (FALSE) {
## load example data
data(rockfall)
## deconvolve and taper signal
s <- signal_deconvolve(data = rockfall_eseis)
s <- signal_taper(data = s, p = 0.05)
## sonify as is (barely sensible, due to too low frequency)
aux_sonifysignal(data = s,
file = "~/Downloads/r1.wav")
## sonify at 20-fold speed
aux_sonifysignal(data = s,
file = "~/Downloads/r1.wav",
speed = 20)
}
Run the code above in your browser using DataLab