data("mod.intro")
## Export the second sample of mod.intro as a wav file:
write.sample(PTSample(mod.intro, 2), tempfile(fileext = ".wav"), "wav")
## Export the second sample of mod.intro as an 8svx file:
write.sample(PTSample(mod.intro, 2), tempfile(fileext = ".iff"), "8svx")
## Export the second sample of mod.intro as a raw file:
write.sample(PTSample(mod.intro, 2), tempfile(fileext = ".raw"), "raw")
Run the code above in your browser using DataLab