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