data("mod.intro")
## get the loop start position of the
## first sample of mod.intro:
loopStart(PTSample(mod.intro, 1))
## Let's change the starting position of
## the loop to 500
loopStart(PTSample(mod.intro, 1)) <- 500
## Let's turn off the loop all together:
loopStart(PTSample(mod.intro, 1)) <- FALSE
Run the code above in your browser using DataLab