data(tico)
listen(tico,f=22050)
listen(tico,f=22050,from=0.5,to=1.5)
listen(noise(d=1,f=8000,Sample=TRUE))
# change f to play the sound a different speed
data(sheep)
# normal
listen(sheep,f=8000)
# two times faster
listen(sheep,f=8000*2)
# two times slower
listen(sheep,f=8000/2)
Run the code above in your browser using DataLab