data("mod.intro")
## get the volume of the first sample of mod.intro:
volume(PTSample(mod.intro, 1))
## Let's lower the volume of this sample to 32
## (or as a hexadecimal: 0x20):
volume(PTSample(mod.intro, 1)) <- 0x20
Run the code above in your browser using DataLab