data("mod.intro")
f <- tempfile(fileext = ".iff")
## create an audio file which we can then read:
write.sample(PTSample(mod.intro, 2), f, "8svx")
## read the created sample:
snare <- read.sample(f, "8svx")
print(snare)
Run the code above in your browser using DataLab