Instantly share code, notes, and snippets.

Embed
What would you like to do?
library(hht)
data(PortFosterEvent)
dt <- mean(diff(tt))
ft <- list()
ft$nfft <- 4096
ft$ns <- 30
ft$nov <- 29
time.span <- c(5, 10)
freq.span <- c(0, 25)
amp.span <- c(1e-5, 0.0003)
FTGramImage(sig, dt, ft, time.span = time.span, freq.span = freq.span,
amp.span = amp.span, pretty = TRUE, img.x.format = "%.1f",
img.y.format = "%.0f",
main = "Port Foster Event - Fourier Spectrogram")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment