Skip to content

Instantly share code, notes, and snippets.

@erzk

erzk/hht_spectrogram.R

Created September 1, 2018 12:59
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save erzk/6fa4a88eef6e35c08d9a674ae6efe488 to your computer and use it in GitHub Desktop.
Save erzk/6fa4a88eef6e35c08d9a674ae6efe488 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
hht_spectrogram.R
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