{
# save sound file examples
data("Phae.long1")
Phae.long1.2 <- stereo(Phae.long1, Phae.long1)
writeWave(Phae.long1.2, file.path(tempdir(), "Phae.long1.2.wav"))
remove_channels(channels = 1, path = tempdir())
#check this floder
tempdir()
}
Run the code above in your browser using DataLab