data("mod.intro")
## get the sample index number of PTCell at pattern #3,
## track #2, row #1 from mod.intro (which is 2):
sampleNumber(PTCell(mod.intro, 1, 2, 3))
## replace the sample index number of PTCell at pattern #3,
## track #2, row #1 from mod.intro with 1:
sampleNumber(PTCell(mod.intro, 1, 2, 3)) <- 1
Run the code above in your browser using DataLab