Instantly share code, notes, and snippets.

Embed
What would you like to do?
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