x <- signal::chirp(seq(from = 0, by = 0.001, to = 2),
f0 = 0,
t1 = 2,
f1 = 500
)
fs <- 2
nfft <- 256
numoverlap <- 128
window <- signal::hanning(nfft)
S <- make_specgram(x, nfft, fs, window, numoverlap, draw_plot = FALSE)
Run the code above in your browser using DataLab