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