data("mod.intro")
## append an empty pattern to mod.intro
mod.intro <- appendPattern(mod.intro, new("PTPattern"))
## append a copy of pattern # 1 (this is pattern #0 in the
## patternOrder table) to mod.intro
mod.intro <- appendPattern(mod.intro, PTPattern(mod.intro, 1))
Run the code above in your browser using DataLab