data("mod.intro")
## Let's do something illegal and destroy mod.intro:
mod.intro@pattern.order <- mod.intro@pattern.order[1:9]
## We should have used the 'patternOrder'-method to
## change the pattern order. Now we have broken the
## object:
validObject(mod.intro, TRUE)
## No worries, we can fix it:
mod.intro <- fix.PTModule(mod.intro)
## See, it's all OK again:
validObject(mod.intro, FALSE)
Run the code above in your browser using DataLab