## Not run:
# ## Load data
# data('SimpSim')
#
# ## Run GAPS matrix decomposition
# nIter <- 10
# results <- gapsTestRun(SimpSim.D, SimpSim.S, nFactor=3,
# nEquil=nIter, nSample=nIter)
#
# ## Execute the InterPattern function
# InterPatternStats <- gapsInterPattern(results$Amean, results$Asd, sdThreshold = 3)
# ## End(Not run)
Run the code above in your browser using DataLab