Skip to content

Instantly share code, notes, and snippets.

@erzk
Created September 1, 2018 13:03
  • Star 1 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save erzk/89247b920d5536dbf3f36ab7c2b6c2af to your computer and use it in GitHub Desktop.
library(RCurl)
# download the R code
script <- getURL("https://raw.githubusercontent.com/usagi5886/dsp/master/Spectrogram().r",
ssl.verifypeer = FALSE)
# load it as a function
eval(parse(text = script))
library(audio)
# download the wav file
url <- "http://soundbible.com/grab.php?id=1850&type=wav"
destination <- "dove_sound.wav"
download.file(url, destination, mode = "wb")
soundfile <- load.wave("dove_sound.wav")
Spectrogram(soundfile)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment