data (sound)
# sound = loadsound () ## run this instead to select your own sound for this demo.
par (mar = c(4,4,1,1))
multiplot (n = 3, sizes = c(.25, .5, .25))
plot (sound)
spectrogram (sound, pause = FALSE, dynamicrange = 50, maxfreq = 7000)
powertrack (sound)
Run the code above in your browser using DataLab