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