| 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